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ATTENTION 


- Le caractère "" que l’on rencontre dans certains listings 
correspond au symbole mathématique "puissance". On l’obtient en 
tapant la touche à gauche de "CLR". 


- Les caractères @ \ [ ] | { } se trouvant dans les chaines 
alphanumériques de certains listings correspondent aux accents 
français. Ils apparaissent normalement à l'écran et à l’imprimante 
lorsque les programmes dans lesquels ils se trouvent ont été 
exécutés. 


0. Préface 


La baisse de prix considérable qui s’est produite sur le marché des 
ordinateurs a fait qu’on peut aujourd'hui acheter des 
microordinateurs pour relativement peu d'argent alors qu’ils 
étaient encore inabordables il y a seulement dix ans. 

Alors qu’autrefois seules de grandes structures telles que les 
ministères, les universités ou les grandes entreprises étaient à 
même d'utiliser des ordinateurs pour résoudre certains problèmes 
déterminés, nous trouvons aujourd’hui déjà chez de nombreuses 
personnes privées des machines électroniques qui peuvent être 
comparées de par leur puissance à un petit centre de calcul 
d'autrefois. 


Tout acquéreur d’un microordinateur (avec ou sans périphérie 
conséquente) finit par se demander, une fois qu’il a essayé 
quelques jeux électroniques, quelles tâches son ordinateur peut 
effectuer. 


Cette question, ainsi que l’explication de toutes les possibilités 
et particularités de l'AMSTRAD CPC, figure au coeur de cet ouvrage. 
Il ne s’agit cependant pas de donner au lecteur des solutions 
toutes prêtes (il pourrait dans ce cas demander directement à son 
revendeur en microinformatique des logiciels tout prêts). Il s’agit 
bien plutôt de montrer au lecteur grâce aux descriptions de 
programmes comment des idées peuvent être formulées en problèmes et 
converties en programmes. 


Les différents programmes sont écrits en BASIC, langage qui joue 
bien sûr aujourd’hui un rôle dominant dans le monde de la 
microinformatique. L’étude de ce livre suppose que le lecteur 
possède un certain nombre de connaissances de base sur le BASIC et 
qu'il ait étudié de façon suffisamment approfondie le manuel 
d'utilisation de l'AMSTRAD CPC pour pouvoir comprendre les 
différents programmes proposés ici, même si nous reconnaissons 
volontiers que ce n’est pas toujours très facile. 


C’est pourquoi les programmes ont été construits de façon à ce 
qu’on puisse facilement comprendre ce qui s’y passe. Ce principe a 
bien sûr nuit à l'élégance de programmation et à la vitesse de 
calcul. Cet ouvrage n’atteint donc pleinement son but que lorsque 
le lecteur se saisit des programmes présentés pour les modifier ou 
les adapter à ses propres besoins. Si vous rencontrez ce faisant 
des obstacles qui vous semblent insurmontables, rappelez-vous que: 


c’est en forgeant qu’on devient forgeron 


Les différents chapitres de cet ouvrage sont en règle général 
organisés d’après le schéma suivant: 


a) présentation d’une idée et formulation en problème 
b) programme 

c) liste des variables utilisées dans le programme 

d) description du programme 

et le cas échéant 


e) résultats du programme 


Les idées évoquées entraînent des solutions de technique de 
programmation de niveau plus ou moins difficile. Nous avons 
cependant veillé à ce que les idées ou propositions soient 
présentées au début d’un nouveau chapitre avec des solutions de 
programme plus simples. Le lecteur qui n’est pas encore un expert 
en BASIC pourra ainsi aborder progressivement des structures de 
programme plus compliquées. Il faut d’autre part noter d’une 
manière générale que les entrées absurdes ou impossibles par 
rapport à la logique du programme ne sont pas toujours interceptées 
par nos programmes. Mais cela sera signalé pour chaque cas. 
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1. Le CPC et ce qu'il permet de faire 


Sur le marché des microordinateurs on peut trouver maintenant toute 
une série d’ordinateurs comparables dans la même classe de prix. Il 
n'arrive que rarement qu’une machine électronique de ce type se 
distingue vraiment des autres. C’est toutefois le cas de l'AMSTRAD 
(sous quelque version que ce soit) car il présente quelques 
particularités remarquables inégalées. 


Il s’agit notamment de caractéristiques musicales et graphiques 
extraordinaires, de la possibilité de définir des fenêtres 
(windows) ou de programmer des interruptions pour exécuter 
plusieurs tâches en même temps ou pour programmer dans le temps 
l'exécution de ces différentes tâches. Nous expliquerons plus en 
détail ces particularités lorsque nous aurons à les utiliser dans 
les chapitres suivants. 


Dans sa configuration de base, le système AMSTRAD CPC est déjà une 
unité informatique prête à fonctionner, qui permet d'exécuter les 
étapes de base du traitement de données: 


- Entrée des données ou informations (au clavier) 

- Stockage des données ou informations (interne ou externe) 
- Traitement ou évaluation de ces données 

- Sortie des résultats (à l’écran) 


Un inconvénient de l’utilisation d’un lecteur de cassette comme 
moyen de stockage externe des données est qu’on ne peut écrire ou 
lire les cassettes que de façon séquentielle. S’il s’agit par 
exemple de lire sur une cassette un fichier déterminé, cette 
cassette doit tout d’abord être embobinée jusqu’à l'endroit voulu. 
Cela peut entraîner dans certains cas un travail de recherche très 
fastidieux. 


Il est de toute façon recommandé de ne pas stocker trop 
d'informations sur une face de cassette et de noter les 
emplacements des différents fichiers grâce au numéro de compteur. 


L'utilisation d’un lecteur de disquette est certainement plus 
pratique. La disquette offre en effet une capacité de stockage plus 
importante et permet un accès très rapide à des emplacements 
déterminés (la disquette est en rotation permanente et très rapide 
dans le lecteur de disquette). C’est pourquoi on parle d’une 
mémoire avec accès direct. En ce qui concerne les instructions 
BASIC à utiliser, le lecteur de disquette ne se distingue pas du 
lecteur de cassette. Les programmes sont ainsi entièrement 
compatibles. 


L’utilité d’un ordinateur n’est effective qu’à partir du moment où 
l'utilisateur dispose de logiciels appropriés. Il y a trois 
possibilités d’obtenir de bons programmes correspondant à des 
besoins individuels: 


1) Acheter des logiciels commerciaux 
2) Taper des listings de programmes 
3) Développer soi-même des programmes 


Si vous manquez de temps ou d’expérience pour programmer vous-même, 
vous en êtes réduit à vous reporter au marché des logiciels. C’est 
notamment le cas si vous voulez utiliser l’ordinateur que vous 
venez d’acheter directement de façon plus ou moins professionnelle 
(par exemple pour du traitement de texte, de la comptabilité ou du 
calcul). Le choix en programmes commerciaux est cependant très 
grand. Pour le CPC sont notamment apparus dernièrement, sur le 
marché, des programmes de prix et qualité très variables. Avant 
d'acheter un logiciel, il importe en tout cas d’effectuer des 
comparaisons très précises en prenant absolument en compte les 
points suivants: 


- Qualité du manuel d'utilisation 

- Services du revendeur 

- Application particulière pour l'utilisateur 

- Tests de logiciels dans les magazines spécialisés 


Taper des listings de programmes n’est pas sans poser de petits 
problèmes. Suivant le sérieux des éditeurs on peut en effet 
s'attendre à ce que les listings contiennent plus ou moins 
d'erreurs. Comme il est très difficile de pénétrer dans la logique 
d'un programme inconnu si ce programme n’est pas accompagné 
d'explications suffisantes, la recherche et la correction des 
erreurs risquent de prendre plus de temps que le développement d’un 
programme original. Avant de taper un long listing de programme, il 
est donc recommandé de vérifier la source de ce programme. 


De nombreux détracteurs de l’usage privé des ordinateurs prétendent 
qu'il ne s’agit pas là d’une activité créatrice. En effet, ne faire 
"que" jouer avec un ordinateur peut devenir à la longue une 
activité assez stupide. Mais la microinformatique devient un hobby 
très créatif à partir du moment où on écrit ou adapte soi-même des 
programmes. Cet ouvrage a justement été conçu pour ceux qui 
souhaitent puiser à la bonne source de nouvelles idées pour 
utiliser leur ordinateur de façon créative. C’est pourquoi cet 
ouvrage aborde les sujets et les suggestions les plus diverses pour 
les transformer en programmes. À ces programmes tout prêts (mais 
qui peuvent bien sûr être modifiés ou adaptés) viennent s'ajouter 
d’autres propositions pour chaque groupe d'idées, regroupées dans 
le chapitre "Le puits à idées". Etant donné la diversité des thèmes 
abordés, chacun devrait pouvoir y trouver son bonheur. 
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2. Depetites choses utiles et faciles à programmer 


2.1 Remarque préalable 


Nous présenterons dans ce premier chapitre d’idées des solutions de 
programmes simples et plus aisées à assimiler. Les explications de 
programme seront en outre très complètes, surtout compte tenu du 
faible degré de difficulté des programmes. Nous espérons que les 
lecteurs inexpérimentés trouveront ainsi dans ce chapitre une bonne 
introduction aux programmes un peu plus complexes des chapitres 
suivants. 


Il s’agit quant au fond, notamment pour les trois premiers 
programmes, de solutions de programme pouvant être utilisées comme 
sous-programmes dans des programmes plus complets et plus longs. 
C’est ainsi que vous rencontrerez par exemple fréquemment dans la 
suite de cet ouvrage le calcul de pourcentage qui peut se révéler 
très utile dans la solution de certains petits problèmes. 


sl 


2.2 Le calcul de pourcentage 


Il est souvent nécessaire de comparer entre elles plusieurs 
valeurs. Nous utilisons à cet effet le nombre 100 comme base de 
comparaison. 


Les concepts de base suivants pour le calcul de pourcentage doivent 
être d’abord définis: 


1. Valeur de base: 


La valeur de base correspond au tout, soit à 100 centièmes ou 
100 %. Il s’agit toujours d’un nombre suivi d’une dénomination 
(F, kg, m ou autres). 


2. Valeur de pourcentage: 


La valeur de pourcentage est une fraction de la valeur de 
base. Il s’agit également d’un nombre suivi d’une 
dénomination. 


3. Pourcentage: 


Le pourcentage est également une fraction de la valeur de base 
mais fournie par rapport à 100. Le pourcentage correspond à la 
valeur de pourcentage. 


Un petit exemple vous facilitera le maniement de ces concepts: 


Supposons qu’un logiciel coûte 898 F chez le revendeur xyz. Vous 
allez maintenant chez un autre revendeur qui veut rester 4% (100 - 
pourcentage) en dessous de ce prix. Soit vous demandez à ce 
revendeur le prix exact, soit vous le calculez vous-même avec la 
formule suivante: 
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Valeur de base * pourcentage 
Valeur de pourcentage = 
100 


898 F * 96 
= ———— = 86208F 
100 


Vous pensez certainement que l’utilisation d’un ordinateur pour des 
calculs aussi simples ne s'impose pas. Mais vous ne faites 
probablement pas de tels calculs de tête. Il vous faut certainement 
une calculatrice ou au moins du papier et un crayon. Et peut-être 
vous faut-il réfléchir un petit peu pour retrouver la formule de 
calcul d’une valeur de pourcentage. Le programme suivant vous 
permet en outre également, si vous le souhaitez, de calculer la 
valeur de base ou le pourcentage. Tout le monde n’a pas en tête les 
formules de calcul correspondantes, bien que celles-ci soient très 
simples: 


Valeur de pourcentage * 100 
Pourcentage = 
Valeur de base 


Valeur de pourcentage * 100 
Valeur de base = 
Pourcentage 
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Programme: 


4 FENM I1 

4 CLS 

4 FRINT"'I1 - Frogramme de calcul de" 

A FRINT TABéi"saleurs de Pourcentage, valeurs" 

G FRINT THEcéi"de base où Pourcentages" 

A PRINT:FAINT:FRIHT 

4 FRINT TAB 11:"Eernd Koual, 1385" 

4 GÜÛSLE 364 

4 FRINT THE 162"Selection":PRINT:PRINT:PARIHT:PRIHT 


FRINHT'Yaleur de base SPRINT 
PRINHT'"'PFourcentage 3": PRIHT 

PRINT :PEIHT:FEIHT 

FFIHT'Venuillez entrer le nombre correspondant" 
PRIHT'"'a la valeur inconnye, " 

FRIHT:IHPUT'"'Votre choix "ia 

IF 351 OR 432 THEN 229 

CLS 

FRIHT'Veuillez entrer lez valeurs" 
PRIHT'corresPondant aux Grandeurs connues, ":PRIHT:FR 


. 
FRIHT'Valeur de Fourcentage = L': PRINT 


= 
oo D mn 


RCA E LUE LUE 


1 GUN NT Li Pim mi 


OH a GOSUE 234,260, 334 

PRINT:PRINT:FPRIHT:PRINT"Fin des calculs":EHD 
INPFUT'Yaleur de base "5; Qu: PRINT 

IHPUT'"Pourcentage "iPps 

FUS QUE s 1 04 

PEIHT:FEIHT:FRIHT'"La valeur de Pourcentage est de :" 





ps 
x 


Hilo on limbemme mm pe be I Qi JM Biron 
CRU EE ELU LUE LA 


nuit 


= 


RETUFH 

IHFUT'Yaleur de Fourcentage "j5Pu: PRINT 
INPUT'"'PFourcgntage "irs 

QuzPukiQn/Ps 

FRINT:PRIHT:FRIHT"'LAa valeur de base est de :";au 
FETURH 

IHFUT'Yaleur de Pourcentage ";Pu:PFRINT 
IHFUT'Yaleur de base SE 

Fs=pu#1if4/au 

FRIHT:PRIHT:FRIHT'"'Le Pourcentage est de :"ips 
RETUFH 

REM SF Attendre 

4 LOCATE 7,25 

FRINT"FraPrez une touche S,.V,F" 

“$=INKEYS: IF x$g="" THEH 414 

424 CLS: RETURN 


DIDN-J TIME 


A 
RARE LUE EL ET] 


Rs ee 
ARR E) 


DUMNECGMREeI 


Wal 
a) 
AU 


dan di Co Qu Ci Cor Co LA Li Co Po Pa Pa 


£+£ 
= 19 
Sa 


sd 


Liste de variables: 


a = variable de réponse pour le menu de sélection 

gw = valeur de base 

ps = pourcentage 

pw = valeur de pourcentage 

x$ = variable auxiliaire restituant la valeur de la touche appuyée 
Comme la variable x$ a la même fonction dans tous les programmes de 


cet ouvrage, nous ne la présenterons plus dans les chapitres 
suivants. 


Description du programme: 


Ligne 10 : Commentaire (n’est pas sorti) 

Ligne 20 : Vidage de l’écran 

Lignes 30- 70 : Sortie du titre 

Ligne 80 : Appel du sous-programme "attendre" 
Lignes 90- 150 : Sortie du menu de sélection 


Ligne 160 : Une valeur correspondant au menu de sélection est 
réclamée 


Ligne 170 : On saute à la fin du programme si une valeur trop 
grande ou trop petite a été entrée 


ste 


Lignes 180-200 : L'écran est vidé et un commentaire concernant les 
entrées encore à faire est sorti 


Ligne 210 : Suivant le point du menu sélectionné, on saute au sous- 
programme correspondant 


Ligne 220 : Fin du programme 


Lignes 230-270 : Sous-programme de calcul de la valeur de 
pourcentage 
230-240 : Les valeurs connues, valeur de base et 
pourcentage sont demandées 
250 : Calcul de la valeur de pourcentage 
260 : Sortie du résultat 
270 : Retour du sous-programme 


Lignes 280-320 : Sous-programme de calcul de la valeur de base. La 
procédure correspond à celle des lignes 230-270. 


Lignes 330-370 : Sous-programme de calcul du pourcentage. On 
procède comme pour les deux sous-programmes 
précédents. 


Lignes 380-420 : Sous-programme d’attente 

380 : Commentaire 

390 : Le curseur est amené sur l'emplacement 
indiqué 

400 : Sortie d’un commentaire 

410 : Interruption du déroulement du programme 
jusqu’à ce qu’on appuie sur une touche 

420 : L'écran est vidé et il y a retour du sous- 
programme 
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Résultats du programme: 


Si nous lançons le programme avec l’instruction RUN, le titre du 
programme apparaît à l’écran. Si nous appuyons sur une touche, le 
menu est sorti et une entrée est demandée pour la valeur inconnue. 
Si nous entrons par exemple la valeur 1, un commentaire est sorti 
et un nombre est réclamé comme valeur de base. Si nous entrons par 
exemple la valeur 898, une valeur pour le pourcentage sera encore 
demandée. Après que vous ayez entré le nombre 96, l’ordinateur vous 
répond: 


La valeur de pourcentage est de : 862.08 


Fin des calculs 
Ready 


Rappelons que le programme a été conçu de façon suffisamment 
générale pour calculer pour n’importe quelles entrées la valeur de 
pourcentage, la valeur de base ou le pourcentage. Les problèmes 
soulevés par cette proposition de programme ne nécessitent pas en 
fait une description aussi détaillée que celle que nous vous 
donnons ici. Il s’agit surtout de vous montrer le principe qui sera 
suivi dans les différents chapitres. Nous commenterons donc par la 
suite de façon plus brève les programmes simples. 


SAT 


2.3 Minimum, maximum et moyenne 





Supposez que vous soyez le président d’une association et que vous 
vous intéressiez à la structure d’âge des membres de l’association. 
Quoi de plus naturel que de rechercher dans ce cas l’âge du plus 
jeune, du plus âgé ainsi que l’âge moyen (il s’agit ici de la 
moyenne arithmétique) des membres de l’association. 


Alors qu’il vous fallait auparavant du papier, un crayon et un 
certain temps pour répondre à ces questions, il vous suffit 
aujourd'hui d’employer votre CPC. Il vous suffit d’avoir le 
programme approprié et vous le trouverez justement à la page 
suivante. 


Naturellement, ce programme ne marche pas seulement pour les 
indications d'âge mais également pour n’importe quels nombres. Vous 
pouvez donc l'utiliser même si vous n'êtes pas président d’une 
association. 


Si vous disposez d’une masse importante de données, il peut être 
plus judicieux de ne pas entrer les différentes valeurs avec 
l'instruction INPUT mais avec les instructions DATA et READ (voir 
chapitre 2.4) car cette seconde méthode permet plus aisément de 
corriger les fautes de frappe qui peuvent aisément survenir dès que 
vous avez de nombreuses données à entrer. 


S'IR:S 


Programme: 


14 REM I2 
24 CLS 
34 PRINT"'IZ - Frogramme de recherche des" 
44 PRINT TAEE "maximum et minimum d'un blocs de" 
SG PRINT TAEcé "donnees, avec calcul de la moyenne" 
A FRIHT 
FRIHT 
FRIHT 
FRINT THBS 11:"Eernd Koual, 1985" 
GOSLE ZE 
IHPUT'"Combien de donnees "in 
IF n<Q THEM £7ÿ 
DIM a6n2 
PRIHT:FPRIHT'Entree des donnees :":FRIHT 
FOR i=i TO n 
FRIHT "Waleur "ii;:IMPUT ai 
E=s+ail ]1 
HEAT i:CLS 
des-n:keat 1 5:gzact 13 
FOR iz£ T0 n 
K=MIMCK , a 122 
cc a=MA#é 9, a6 122 
HET i 
245 PRINT :FRIHT "Minimum 
54 PRINT:PRIHT "Maximum 
Sen FRINT:PRIHT'"'Mosenne 
274 PRIHT:PAIHT:PRINHT"Fin du Programme" :EHNC 
c54 KEM SF attendre 
299 LOCATE 7,25 
394 PRIHT'Yeuillez fraFPer Une touche" 
319 xS=IMÉETS:IF x$="" THEN 314 
329 CLS :RETURH 


Fo Po Po Ps des pt et Det et et D et 0 4) Qi 
U SD NME Ne Die 9 me 
CREER EEE CEE ELLE LT) 


Go Pi 
LD 


L u_u 


=D x 


n 
5° 
'; 


210% 


Liste de variables: 


a(i) = les valeurs entrées 

d = valeur moyenne 

g = maximum 

1 = index de comptage 

k = minimum 

n = nombre des valeurs entrées 


s = somme des valeurs entrées 


Description du programme: 


Lignes 10-100 : Titre 


Ligne 110 : Une valeur pour le nombre de nombres à entrer est 
demandée 


Ligne 120 : On saute à la fin du programme si aucun nombre ne doit 
être entré 


Ligne 130 : On réserve de la place en mémoire pour le tableau a(n) 


Lignes 140-180 : Entrée des données. Les différentes valeurs sont 
additionnées directement dans le tableau s 


Ligne 190 : La valeur moyenne est calculée et on suppose comme 


grandeur de départ pour les variables k et g la valeur 
entrée en premier, a(1) 
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Lignes 200-230 : Toutes les valeurs entrées sont comparées avec la 
plus petite (ligne 210) et la plus grande (ligne 
220) valeurs. Si une valeur est inférieure au 
minimum précédent ou supérieure au maximum 
précédent, les valeurs des variables k ou g sont 
modifiées en conséquence. La boucle de programme 
commence d’abord par la valeur i=2 puisque les 
variables k et g se sont vu affecter en ligne 190 
la première valeur a(1). 


Lignes 240-260 : Sortie du résultat 
Ligne 270 : Fin du programme 


Lignes 280-320 : Sous-programme "attendre" 


Résultats du programme: 


Si nous entrons 4 valeurs après le lancement du programme, par 
exemple les nombres 19, 63, 79 et 56, nous obtenons le résultat 
suivant: 


Minimum = 19 


Maximum = 79 


Moyenne = 54.25 


Fin du programme 
Ready 


Un tel résultat peut bien sûr encore être affiné. Il saute aux yeux 
en effet que trois valeurs sont supérieures à la moyenne alors 
qu’une seulement lui est inférieure et que le minimum est bien plus 
loin de la moyenne que le maximum. 


LOU 


Cela tient à l’inégale répartition des valeurs examinées dans le 
spectre global de nombres considéré. Rapporté à notre président 
d'association, cela signifierait que la jeunesse est également 
représentée dans cette association mais que les personnes plus 
âgées y dominent nettement. 
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2.4 L'ordre alphabétique 


Restons avec notre président d’association. Supposons maintenant 
que vous vouliez en tant que président mettre en ordre votre 
fichier de membres. Vous commencerez certainement par trier les 
noms dans l’ordre alphabétique. Cela peut être très fastidieux s’il 
y a une masse importante de membres. 


Avec l’aide d’un ordinateur, ce travail ne pose aucun problème. Le 
programme que nous vous proposons trie un nombre quelconque de mots 
ou plus généralement de chaînes de caractères. Les données sont ici 
entrées, contrairement au programme précédent, au moyen de 
l'instruction DATA. Si vous voulez donc utiliser d’autres données, 
il vous suffit de modifier les instructions DATA correspondantes et 
d’entrer le nombre qui convient pour la variable n. 


A noter que nous n’avons utilisé que des majuscules pour les 
données. La conception de l'ordinateur fait en effet que les 
majuscules seront toujours considérées comme inférieures aux 
minuscules correspondantes. La condition € < c sera donc par 
exemple toujours remplie. Si vous voulez donc utiliser des chaînes 
mixtes avec des majuscules et des minuscules, il vous faut utiliser 
avant toute comparaison les fonctions LOWERS$ ou UPPER$ pour 
convertir les majuscules en minuscules ou inversement. 


Le programme que nous vous présentons peut être aisément modifié 
pour trier des nombres au lieu de chaînes de caractères. Il vous 
suffit dans ce cas de transformer les variables w$ et hi$ en w et 
hi et de préparer les données voulues. Vous pouvez d’ailleurs vous 
contenter de modifier les données. 


04 


folie mmemnmemememIlgiI JM Rio 


Li Po Po Fo Po 


Programme: 


FEM 13 

CLS 

FREINT"'IZ - Frogramme de tri alFhabetique" 
FEIHT THECÉ 2 "de mots" 
PRIHT:FRINT:FRIHT 

FRIHT TAEC11:"Bernd Eoual, 1955" 
GOSUE 269 

FEINHT'"Combien de mots le Frogramme" 
IHPUT'duit-il lire "in 

IF n=ÿ THEH 254 

CLS: CIN $C 2 

FENM dans ce Programme n=7 

C'ATA LE. E0H, ORCIHATEUR:, POUR, WOUS 
C'ATA LE:CFC déd 

FOR i1=i TÜ on 

FEAC wii): HEAT 1j 

FOR i=i T0 n-i 

FF jziti TO n 

IF bé i=ugc it GOTO Z14 

Hi S=tugé joue jugé à 2 a$é i =H1$ 
ME“T 

FAIT wii! 

HEAT i 

4 PRINT mini 

4 EHC 
ét REM SF Attendre 

F4 LOCATE F,25 
14 PRINT'FraPrez une touche SYSF" 
#$=INEETS:IF xS$="" THEN 239 
44 CLS: RETUEH 


CCR LOUE CURE LOU EX] 


ne 
ARLAELAERX 


_- 
AE XX] 


da 


OO NM LE COMTE 


Si 
EURE CERN EE NNCERRE LOC LOC LOUE LACET 


Ji 










De 


Liste de variables: 


hi$ = tableau auxiliaire 

i = index de comptage 

j = index de comptage 

n = nombre de variables alphanumériques 


w$(i) = mots ou chaînes de caractères 


Description du programme: 


Lignes 10-70 : Titre 
Lignes 80-90 : Entrée du nombre de chaînes 


Ligne 100 : Sauter en fin de programme s’il n’y a pas de chaînes à 
lire 


Ligne 110 : L'écran est vidé et de la place est réservée en mémoire 
Ligne 120 : Commentaire 
Lignes 130-160 : Les données sont préparées et entrées 


Lignes 170-240 : Les mots sont triés par ordre alphabétique et le 
résultat est sorti. 
Trier signifie ici que deux mots sont chaque fois 
comparés entre eux. Le premier mot entré wS$(i) 
avec i=1 est d’abord comparé avec tous les autres 
mots w$(j) avec j=2..n. Si w$(1) se trouve, dans 
l’ordre alphabétique, placé après un autre mot 
w$(j), on échange les deux mots ainsi comparés 
(ligne 200). 
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Après ce parcours (lignes 180-210) figure en 
premier w$(1), le premier mot dans l’ordre 
alphabétique. 
La variable de comptage i est ensuite augmentée 
chaque fois de 1, c’est-à-dire qu’on compare 
d’abord le mot figurant en seconde position w$(2) 
avec tous les autres sauf w$(1}). On procède de 
même pour le troisième mot et ainsi de suite. 
C'est ainsi que toutes les comparaisons possibles 
auront finalement été effectuées. 

Ligne 250 : Fin du programme 


Lignes 260-300 : Sous-programme "attendre" 


Résultats du programme: 


FAIT 
L'AMSTRAD CPC 
L'ORDINATEUR 
POUR 


VOUS 


Une affirmation très juste, triée dans l’ordre alphabétique ! 
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2.5 Jouez-vous au Loto ? 


Vous avez 36 ans, vous êtes né le 12.948 et vous oubliez votre 
anniversaire de mariage le 20.3? Vous allez peut-être alors tenter 
chaque semaine votre chance au Loto avec les nombres suivants: 


36, 12, 9, 48, 20, 3 


Vous pouvez maintenant oublier ces nombres qui ne vous ont 
d’ailleurs probablement pas tellement porté chance. Votre CPC va en 
effet vous livrer chaque semaine 6 nombres différents pour le loto. 
Malheureusement, la probabilité restant la même, il est douteux que 
ces nombres "électroniques" vous portent plus chance que votre 
ancienne combinaison. Pour vous ôter tout espoir, l’ordinateur vous 
dit d’ailleurs d’emblée combien il y a de possibilités de 
combinaisons de 6 nombres avec 49 nombres. 


Quelques explications mathématiques sont nécessaires pour le 
programme suivant: 


S'il est en effet très aisé de tirer 6 nombres au hasard entre 1 et 
49 (avec la fonction RND), la détermination du nombre de 
possibilités de combinaisons de 6 ou k éléments parmi 49 ou n 
éléments est plus compliquée puisqu'il nous faut pour cela la 
grandeur du coefficient binômial n sur k. 


C’est la formule suivante qui s'applique: 


n n! 


k (nk)! * k! 


Pour les lecteurs intéressés par les mathématiques, nous ajouterons 
que le cofficient binômial correspond aux facteurs fournis par le 
développement du binôme. Donc: 
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n On n n-l n n2 2 n n-l 
(a+b) =a +()a b+()ja b+.+( jab +b 
1 2 n-] 


Mais revenons au problème posé par notre programme. Comme le calcul 
de probabilités avec les valeurs n=49 et k=6 entraînerait avec la 
formule ci-dessus des valeurs supérieures à la valeur maximale 
pouvant être représentée, ce qui provoquerait le message d’erreur 
"overflow", le quotient de la formule a été réduit dans le 
programme: 


n RE 
k RC ASE DE CS A Re A 


(k+1) * (k+2) * (k+3) * .. *n 


162%3% 4%... #(nk) 


n n 
Si l’on tient compte du fait que ( ) = (  ) comme il est facile de 
k nk 


le comprendre d’après la formule de calcul ci-dessus, on obtient 
pour n=49 et k=6 (ou k=43): 


() 49 44 * 45 * 46 * 47 * 48 * 49 


6 PE A D 


Ces explications mathématiques devraient en premier lieu vous 
rendre plus aisée une éventuelle modification du programme. Le 
programme est conçu de façon à ce qu’une modification de la ligne 
190 permette de calculer n'importe quel coefficient binômial. Il 
faut cependant également modifier la sortie du résultat. 
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Programme: 


14 REM 14 
29 CLS 
FRIHT"Id - Programme Pour tirer & nombres" 
FRIHT TABé "'alestoires entre 1 et 43," 
PRINT THBié "et Pour determiner le nombre 
FRIHT TAÉéé"possibhilites de tirer 6" 
PEIHT THB é nombres Parmi 43 Loto" 
FEIHT: PRINT :FRIHT 
PRIHT TAB 112 "Eernd Koual, 1585" 
GOSUE 34 

PRIHT'É nombres aléatoires entre 1 
FOR izi T0 6 

6 1 2 IHTÉ RHD# 4541 1 

FOR j=i TO i-1 

IF xfigzxt i1 THEM 154 
H HEXT à 
A PRINT "Hombre "iii" ii 
4 HEAT i1:FRIHT:FARIHT 
E Dr 
THEH z=finezl:GOTO 4 
F4 THEH E=-Ek 
aust: eyzk : GOSLUE 254: 


Gi 
ANNEXE A] 


Dur 


ni 


D 0 

+ 
pes 
10 


ERA EUX EUX EE LUE EX) 
à 1 ur ur 1 


ä 
ä 
1 
d 
ssl 
8 
9 









M ausn-k eust: GOSUE 244:nezf 
ä FRIHT"'IT 4 a":52z* ne" dif ferentes" 
234 PRINT'"combinaisons Re bte de" 
! 


PRIHT'ÉE nombres Farmi 44 
PRIHT:PRINT:FRIHT"' Fin des calculs "END 
FEM SF Factorielles 
f=i 
FOR i=au TO œuti STEF -1 
314 f=f#i 
Cd HEAT à 
1 FETUEFH 
244 RENM SF Attendre 
og LOCATE F2 
St FRINT'FraPPhez une touche SF" 
HS=INÉE"H:IF x$="" THEN 37H 
CLS: RETUEH 





50 


PRINT 


Liste de variables: 


aw = valeur initiale de la boucle 
ew = valeur finale de la boucle 
f = produit dans le sous-programme "probabilités" 


i = index de comptage et facteur dans le sous-programme 
"probabilités" 


j = index de comptage 


k = nombre d’éléments à choisir 


n 


nombre d’éléments 

n 
ne = dénominateur dans la formule de calcul de ( ) 
x(1) = nombres aléatoires entre 1 et 49 
n 


z = compteur dans la formule de calcul de ( ) 
k 


Description du programme: 


Lignes 10-100 : Titre 


Lignes 110-180 : 6 nombres aléatoires entre 1 et 49 sont produits 
puis sortis. 
Dans les lignes 140-160, tout nouveau nombre 
aléatoire produit est comparé à ceux déjà sortis. 
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En cas d'identité, un nouveau nombre aléatoire 
x(i) est produit, sans que la variable de comptage 
soit augmentée. 
Ligne 190 : Les variables n et k reçoivent des valeurs 
n 
Ligne 200 : Si k>n, ( }=0. Dans ce cas, on saute à la sortie du 
k 
résultat. 


Ligne 210 : Si n-k>k, k est fixé égal à n-k pour simplifier le 
calcul (voir plus haut) 


Lignes 220-230 : Calcul des compteur et dénominateur de la formule 
abrégée 


Lignes 240-260 : Sortie du résultat 

Ligne 270 : Fin du programme 

Lignes 280-330 : Sous-programme "probabilités" 
Les probabilités ne sont calculées que si la 
variable ew égale 0. Sinon des produits 


quelconques sont formés. 


Lignes 340-390 : Sous-programme "attendre" 


Résultats du programme: 


La sortie des résultats pourrait se présenter ainsi: 


als 


6 nombres aléatoires entre 1 et 49: 


Nombre 1 : 32 
Nombre 2 : 23 
Nombre 3 : 5 
Nombre 4 : 39 
Nombre 5 : 41 
Nombre 6 : 7 


Il y a 13983816 combinaisons possibles de 
6 nombres parmi 49 ! 


Il ne reste plus qu’à vous souhaiter d’avoir beaucoup de chance ! 


392 


2.6 Publicité dans une vitrine 


Si vous avez un commerce auquel vous soyez prêt à l’occasion de 
consacrer votre CPC, vous pouvez placer votre ordinateur dans la 
vitrine du magasin. 


Bien entendu, il ne s’agit pas simplement de mettre votre CPC dans 
la vitrine pour montrer aux gens que vous avez un ordinateur. Il 
s'agit d’utiliser un programme de publicité Vous savez en effet 
que les supports visuels de publicité sont toujours très 
attractifs. 


La présentation d’un programme de publicité dans une vitrine doit 
être intéressante et attractive puisqu'il faut qu’une personne 
passant par hasard devant la vitrine soit accrochée au point de 
s'arrêter pour recevoir les informations publicitaires. Pour 
obtenir un tel résultat, il est conseillé d’utiliser des couleurs 
et un texte défilant. Un mélange de graphisme et de lignes de texte 
peut également être très efficace. On utilisera pour cela les 
instructions TAG et TAGOFF. On pourrait par exemple créer avec le 
programme du chapitre 7.2 un graphisme intéressant que l’on 
intègrerait ensuite dans un programme de publicité On pourrait 
même tout simplement intégrer le programme du chapitre 7.2 tout 
entier comme sous-programme du programme de publicité. 


Dans le programme d’exemple du présent chapitre, nous vous 
présentons cependant une solution plus simple. Après la sortie en 
grand format des nombres 1, 2 et 3 (rouge sur blanc), le texté 
publicitaire apparaît trois fois à l'écran, d’abord rouge sur 
blanc, puis en clignotement bleu-rouge et enfin en clignotement 
bleu-rouge sur un fond en clignotement blanc-jaune. Les nombres 1, 
2 et 3 sont définis conformément aux grilles qui figurent dans le 
manuel d'utilisation de votre ordinateur. Alors que les grilles du 
manuel représentent les nombres, comme tous les caractères, par une 
combinaison de points, nos nombres en grand format sont ici 
composés de carrés. Ces carrés sont définis avec l’aide de 
l'instruction WINDOVW et remplis avec la couleur fixée pour le fond. 


ae 


La commande dans le temps du déroulement du programme s’effectue 
avec les instructions TIME et AFTER. Alors que les nombres en grand 
format apparaissent chaque fois une demi-seconde à l’écran, le 
texte de publicité reste chaque fois cinq secondes à l’écran. 
L'utilisateur peut en outre indiquer combien de temps le programme 
doit tourner au total. Notez qu'après appel d’un sous-programme 
avec l'instruction AFTER, le programme est exécuté jusqu’à ce que 
le temps indiqué soit écoulé. 


Le texte publicitaire du programme présenté ici peut bien sûr être 
modifié à votre guise. Il est également possible de ne pas faire 
défiler que la dernière ligne. Il pourrait par exemple être très 
intéressant de faire défiler plusieurs lignes de texte les unes 
après les autres. En tout cas, cela vaut le coup de faire tourner 
différentes variantes. 
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Programme: 


FENM 15 
CLS 
FRIHT "IS - Programme de Publicite en vitrine" 
FRINT:PRIHT:FAIHT: PRINT :FRIHT:PRINHT 
FRIHT TAEC GS 'Éernd Éoual, 1985" 
GÜSUE 274 
FRIHT'Ouree de defilement du spot %" 
FRIHT:IHPUT'Heures Mist 
FRIHT:IHPUT'"' Minutes  "imi 
FRIHT:IMNPUT'Secondes "oise 
zesst#s6404+mitéf+setTIME-344 
1H 26: FAPFER Z:ECURDER 26 
JE 1,8: INF G,26:IME 15:1,3:IHK 14,26,2Z4 


MARDN EN ENTER ER ELN ELA ENTER) 


ir! 
9 D D D D Go D 






FOR isi TO F 

FAFER #13 

MEAT 

HHILE TIME-564: ze 

GOSUE 274 

AFTER 25,1 GOSUE 34 
AFTER 54,2 GOSUE 45@ 
AFTER 75,5 GOSUE 64 
zisTIME 

IF TIME‘z1+1664 THEH 24 
HEHC 

4 MÜCE 1:EHC 

FEM Le chiffre 1 

MODE 1 
MIHCUb 
MT HO 


CP EURE PERLES 


— 10 


=, 
si 


PQ PQ ee pe pe be De Dé pe be ps be I OO ef 1 CA a Go Pine 
















à MIHNCOH #3,5,3 He 
34 FOR ii TO 30 HET 1 
334 RETURH 
4 RENM Le chiffre € 
CLS 
WMIHCOU #1,5, & 
MIHCOLM #2, 1: 19 
MIHCOLM #3, ‘ii 
334 WIHCOW #d4.1Z,27,12, 14 
446 MIHCOH :5 ‘2 
414 MIHCOH Ê: 11,21,23 
424 MIHCOH 3 £, 9 
454 FOR ji=i TO F°CLS #Hi:MEAT 
444 FETURH 
454 FEM Le chiffre 3 
464 CLS 
4F4 WIHCOUM #1.:4.:11,6.8 
456 MIHCOM #2,12.,27,:3,5 


545.5 


HIHCOWU #3,24,31.:6,11 
UIHCOU #4,16,27,14,14 
MIHDOU #5,24,31,15.,26 
HINDOH #6,12,27,21,23 
HIHCOH #7,8,15,18,28 
FOR i=1 TO F:CLS #i:HEAT i 
FETLE:H 
FE Offre special 
MOCE 4 
ze=TIME 
GOSUE 664 
IF TINE<z2+1506 THEH cn 

=TIME:PEH 15:CLS:GUSLIE 664 
ÎF TINE<Z3+1544 THEH 624 
zd=TIME:FAFER 14:EURDER 26,24: CLS :GOSUE 664 
IF TIMEizd4+1549 THEH édf 
FEH 1:FAFER Z:BORDER 26: RETURH 
FRIHT" Offre sreciale!":PRINT:PRIHT:FAINT 
FRIHT" Amstrad CPC éd" PRIHT:PAIMT:FEIHT 
FRIHT" avec moniteur": FRIHT 
PRIHT" et": PRINT 
FRIHT" lecteur de cassette": PATHT: PRINT :PRIHT 
FRIHT" au Prix de :":PRIMT:FRIHT 
FRIHT TORRES FF" 


fabuleux " 


D 


CAC COCO ROUE ANR AE ME LOUE LOUE LE LC E EX EE LA | 


Da a Qu LA CN CA CA CA CA A CA CN CM Ba 
Pa ee 0 00 —j ON à Go Pie Qi Ut 





He GIDO MALE 


ee 
DR ELUR 


ÉD LOU EE AE 


Lu) 
ni 


ER 
RARE LA ELA D 


L 
# 
: 
T 
LOU 
Ti 
CT 
l 
T 
% 
LLES 


AR 
I 
+ 
= 
m - 


IF TIMNESZS+544 THEH F5 

FÜR izi T0 24 
BH=FILHT EE 4%, 1° 

LOCATE 1,23 

PRIHT E$; 

HET 1 

FÜR i=1 T0 £f 
Hb=LEFTSE ad, io 

LOCATE 1,43 

FEIHT ES; 

MEST ji 

RETLEFH 

FE SF Attendre 

LOCATE 25 

FÉIHT'"'Fraprez une touche SVP" 
SA xH=INEETS:IF 2$="" THEN 346 
314 CLS :FETUEH 


DROGUE 


LARLA ELA ENN ELA EE 


11 


Mt 
ni 





ab 


Liste de variables: 


a$ = chaîne de caractères dans laquelle est placé le texte défilant 
b$ = la chaîne de caractères a$ "traitée" 
i = variable de comptage 


mi = minutes 


se = secondes 


st = heures 


A 
22 
z3 Ÿ = durée d’une boucle de temporisation 
z4 


ZS 


ze = durée limite en seconde pour le programme tout entier 


Description du programme: 


Lignes 10-60 : Titre 


Lignes 70-100 : Entrée de la durée du déroulement du programme 
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Ligne 110 : Calcul de la durée limite en seconde pour le 
déroulement du programme complet. La fonction TIME 
indique le temps qui s’est écoulé depuis la mise sous 
tension de la machine (unité: 1/300 de seconde). 


Ligne 120 : Les couleurs du fond et du bord sont fixées sur blanc 
brillant. 


Ligne 130 : Les numéros de PEN ou PAPER sont affectés à des 
couleurs 


Ligne 140 : L'écran est vidé 


Lignes 150-170 : Fixation de la couleur de fond pour les zones de 
l'écran restant encore à définir (rouge clair) 


Lignes 180-250 : 


Appel des sous-programmes 
Tant que la durée limite n’est pas atteinte, les 
instructions des lignes 190-240 sont exécutées. 


190-240 : 


230-240 : 


Les différents sous-programmes sont 
appelés en fonction des durées 
indiquées. En fonction des boucles 
d'attente du sous-programme Offre 
spéciale, on peut renoncer en ligne 190 
à l'instruction AFTER. 


Boucle d’attente qui interdit que les 
lignes 190-220 ne soient traitées avant 
que les sous-programmes aient été 
appelés 


Ligne 260 : Modification du mode écran (40 caractères par ligne) 
puisque le sous-programme Offre spéciale travaille avec 
20 caractères par ligne. L’écran est en même temps vidé 
et on atteint la fin du programme. 


Lignes 270-330 : Sous-programme pour la sortie en grand format du 


nombre 1 


- 38 - 


Lignes 340-550 : 


Lignes 560-860 : 


Lignes 870-920 : 


270-280 : Commentaire et modification du mode 
écran 
290-310 : Définition de fenêtres d’écran carrées 
qui forment ensemble le nombre 1 
320 : Les fenêtres d’écran définies sont remplies 
de rouge clair (voir lignes 150-170) 
330 : Retour du sous-programme 


Sous-programmes pour représenter en grand format 
les nombres 2 et 3. La procédure est la même que 
pour le sous-programme précédent. 


Sous-programme "Offre spéciale" pour sortir le 

texte publicitaire 

560-570 : Commentaire et passage en mode 80 
colonnes 

580-650 : En fonction des variables de durée 2z2, 
z3 et z4, un saut est effectué à trois 
reprises au sous-programme en lignes 
660-860 qui sort le texte. Lors des 
deuxième et troisième sauts en lignes 
610 et 630, la couleur du fond ou la 
couleur du crayon et celle du fond (y 
compris le cadre) sont modifiées. En 
ligne 650, on retourne au programme 
principal. 

660-860 : Sous-programme de sortie du texte 
publicitaire. Après la sortie du texte 
principal (lignes 660-720) et la 
définition de la variable a$ (ligne 730) 
suit une boucle d’attente (lignes 740- 
750). Le contenu de la chaîne de 
caractères est ensuite traité en lignes 
760-850 puis sorti en défilement. 


Sous-programme "attendre" 
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2.7 Le puits à idées 


- Création de tableaux et de statistiques 


- Représentation de courbes et de diagrammes (camemberts, 
histogrammes, etc...) 


Dessin d’une fonction quelconque 


Biorythmes, analyse de partenaires biorythmiques 


Astrologie et horoscope 


Tests de personnalités ou tests de QI 

- Evaluation des réponses à des formulaires 

- Gestion d’adresses, gestion de cartes de membre 

- Fichier de vocabulaire 

- Communications de tout genre 

- Banques de données pour n’importe quelles applications 
- Gestion scolaire: choix des cours, listes de cours 

- Création d’un calendrier 

- Cours de dactylographie 


- Synthèse de la parole 


Représentation de schémas de fonction 


et bien d’autres choses encore 
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3. Voiture et ordinateur 


3.1 Remarque préalable 


Appartenez-vous à la très nombreuse légion des automobilistes? Si 
ce n’est pas le cas, nous vous conseillons malgré tout de ne pas 
négliger ce chapitre. Les programmes qu’il contient sont en effet 
vraiment intéressants. Ils vous présentent par exemple une 
utilisation interactive du lecteur de disquette ou de cassette et 
le programme d'optimisation de l'itinéraire peut vous servir 
également pour une expédition en vélo. 


La notion "interactif" mérite une rapide explication. Elle signifie 
qu’on accède à partir du programme à la cassette ou à la disquette 
pour la lire ou pour y écrire. Vous pouvez ainsi sauvegarder 
durablement des informations que vous pourrez à tout moment 
examiner ou modifier. Dans la suite de l’ouvrage, vous trouverez 
encore quelques programmes qui utilisent de cette façon le lecteur 
de cassette ou de disquette. 


SA. 2 


3.2 Contrôle sur une longue période de la consommation d’essence 





Dans le programme présenté dans ce chapitre les informations à 
entrer sont la consommation d’essence de votre voiture et la date à 
laquelle celle-ci a été relevée. Bien entendu vous n’avez pas à 
rapporter vous-même cette consommation à 100 km. Il suffit bien sûr 
d'indiquer le nombre de kilomètres parcourus et la quantité absolue 
de carburant consommée. La conversion en consommation en litres 
pour 100 km est effectuée dans le programme. Si vous ne vous 
souvenez plus comment on fait un tel calcul, en voici la formule: 


consommation absolue * 100 
Consommation aux 100 km = 
kilomètres parcourus 


Le résultat de ce calcul (il est bien sûr également possible 
d'effectuer plusieurs calculs consécutifs) peut alors être 
sauvegardé, avec la date correspondante, sur disquette ou sur 
cassette. Vous pouvez bien sûr également lire des informations 
sauvegardées et compléter cette série d'informations (plus 
précisément: ce fichier). Dans une étape suivante il est également 
possible de sortir toutes les informations pour pouvoir par exemple 
déceler une éventuelle "tendance de consommation". La consommation 
moyenne est également calculée et sortie à cette occasion. 


Un mot sur le déroulement du programme: 

Les possibilités de sélection pour l'utilisateur du programme sont 
réalisées en général à travers ce qu’on appelle un menu. Dans ce 
programme la possibilité de sélection s'exerce différemment, par 
une suite de questions auxquelles il faut répondre par "o" (pour 
oui) ou "n" (pour non). Il faut noter à cet égard qu’une fois que 
vous avez entré un "n", il n’est pas possible de l’annuler (sauf en 
interrompant le programme en appuyant deux fois sur la touche ESC 
puis en utilisant l'instruction GOTO pour ne pas perdre les 
données). Chaque fois en effet que vous lancez le programme (avec 
RUN) toutes les données entrées précédemment sont perdues. 
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Cette technique d’interrogation semble au premier abord moins 
pratique que la technique du menu. Elle présente cependant 
l'avantage de permettre moins facilement à l'utilisateur d’oublier 
des étapes importantes du programme - comme par exemple la 
sauvegarde des données - puisqu'il doit répondre à chaque question 
de façon active "o" ou "n" avant de poursuivre l’exécution du 
programme. 


Programme: 


Û 


=) Qi A Le Go RO me 
CCR OCR OUI AN D OUR LA EU 


PRET 


SOLE 
RCE LUE EEE LU 


ji UN LB Cire 


2eû 
36a 


RIN 


REM 16 
CLS 


FRINT"I6 - Froaramme de controle" 
FRIHT TAB "de votre consomation d'essence" 


FRIHT:PRIHT:FRIHT 


PRIHT TAB 112 "Eernd Koual, 1955" 


GOSUE" 64 


CIN vi 14495, tac 1060, moi 1999 à, jai 1064 2 
PRIHT"Faut-il charGer des donnees" 
IHPFUT'"'sauveaardees (o/nt "5 a$g:PRIHT 


IF a$="n" THEH 156 
IF a$:>"o" THEN 34 
OPFEHIH "Consormm, ":1=1 


IHPUT #34 1 2 tal i 2 mo 1 2, jac ii 


IF EUF=-1 THEH 174 
i=i+1:GOTO 14 
CLOSEIN 


CLS:PRINT'"'Faut-il entrer de nouvelles" 
INPUT'valeurs éoni "53a$:PFRINT:PRINT 


IF a$="n" THEM 3F4 
IF a$ii"o" THEN 164 
i=i+i 


IHPUT'Éilometres Parcourus "ji akm:FRINT 


INFUT'"'Consommation en 


litres ";bv:PRINT 


PRINT:PRINT"'Date  :":FRINT 


INPUT" Jour "itasi) 
INFUT"Mois "mo i) 


IHPUT "Annee “da i): 


PRIHT:46 12=bv#1400/3km 
PRIHT'"'La consommation 
PRINT'est de :", USING 
T 


PRINT 


aux 104 kilometres":PRIHT 
HH Hi vCi 5 PRINT" litres":P 
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PRINT:PRINHT'"'Faut-il entrer d'autres valeurs" 
IHPUT'"< on ";a$ 

IF ag="n" THEH 374 

IF a$<>"o" THEH 326 

CLS: GOTO 224 


CLS: FRIHT'Faut-1il stocker toutes les stats " 
364 PRIHT'"de consommation 9 comPris les valeurs" 
FFIHT'eventuel lement charges auparavant)" 


IHPUT'amvec a date Cons "5a$ 
IF a$g="n" THEH 454 
IF agi"o" THEH 3574 








A OFEHOUT "Consomm, " 
A FOR i=z1 TO i 


PRIHT #9, 46 ji, ta 3, moé j à, jas à à 


SA HEXT i 


M 
: 
Det] 


Ra 


NUE £ 
HE Girls RE 
ARR LUE LT ELA LUE LA EUX) 


DT LE Gi Die mg Or) Min 
= 


DM MNMMANNNEAENEN 


CCR LUE CR ROUE CRE LUE 


CLOSEQUT 
CLS:FRIHT"'Voulez-vous examiner toutes les" 
IHPUT' etats en une fois Cons "5 a$ 

IF a$="n" THEH 634 

IF agii"o" THEH 45 

CLS: PRINT" Consommation", THBS ES "Date": PRINT 
FOR ji TO i 

FPRIHT:USIHG MHH Ho ue i : PRIHT" litres ", 
PRIHT USING "H#.!"itac ji, 

PRINT USING "Hors ji, 

PRIHT USING "##"; ia ii 

IF j=15 THEH GOSUB 64n 

SVssy+u 1: HEXAT dj 

PRIHT:PRINHT"'Scit une consommation mosenne de :" 
FRIHT LISIHG "#HH#, #hMisusi; 

FRIHT" litres" 

PRIHT:PEINT:PRIHT:FPRINHT"'Fin du Frosramme": END 
FEN ©F Attendre 

LOCATE F5 

FRIHT'"'Fraprez une touche 5,%,F" 

#H=IMEEYS:IF x6="" THEN 674 

CLS : RETLURH 
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Liste de variables: 


a$ = chaîne de réponse (o/n) 
bv = consommation d’essence absolue 
gkm = kilomètres parcourus 


variable de comptage 


me 
(l 


j = variable de comptage 

ja(i) = année 

mo(i) = mois 

sv = tableau d’addition pour v(i) 


ta(i) = jour 


v(i) = consommation aux 100 km 


Description du programme: 


Lignes 10-70 : Titre 


Ligne 80 : On réserve de la place en mémoire pour les variables 
indexées 


Lignes 90-120 : Première question "Lire" 
Cette question, de même que les suivantes, est 
sortie à nouveau si l'utilisateur n'entre ni "o" 
ni "n". Si "n" est entré, on saute à la question 
suivante (ligne 180). 


546 > 


Ligne 130 : Le fichier d’entrée "Consomm" est ouvert et la 
variable de comptage i est fixée à 1. 


Ligne 140 : Lecture des informations stockées 


Ligne 150 : Si la fin du fichier n’a pas été atteinte (EOF = -l), 
on saute à la ligne 170 


Ligne 160 : La variable de comptage i est augmentée de 1 et on 
retourne en ligne 140 pour la lecture d’autres données 


Ligne 170 : Fermeture du fichier d’entrée 
Lignes 180-210 : Seconde question "Entrer" 
Ligne 220 : La variable de comptage i est augmentée 


Lignes 230-280 : On demande les kilomètres parcourus, la 
consommation d’essence absolue et les indications 
concernant la date 


Lignes 290-310 : Calcul de la consommation aux 100 km et sortie du 
résultat avec une précision de deux décimales 
après la virgule 


Lignes 320-360 : Interrogation sur une entrée supplémentaire, 
vidage de l’écran et le cas échéant saut en ligne 
220 


Lignes 370-420 : Troisième question "Sauvegarder" (les lignes 320- 
360 appartiennent pour ainsi dire à la seconde 
question) 


Lignes 430-470 : Le fichier de sortie "Consomm." est ouvert, des 
informations y sont sauvegardées (il y a chaque 
fois i valeurs différentes dans la mémoire de 
travail de l'ordinateur) et le fichier de sortie 
est refermé 


“AT > 


Lignes 480-510 : Quatrième question "Resultats" 
Ligne 520 : Sortie du titre du tableau 


Lignes 530-590 : Les valeurs de consommation sont sorties formatées 
avec la date correspondante. Après 15 sorties, un 
saut est effectué au sous-programme "attendre" 
pour que les résultats ne disparaissent pas vers 
le haut de l’écran. Les différentes valeurs de 
consommation sont additionnées dans le tableau sv 
(ligne 590) pour pouvoir plus tard calculer la 
moyenne arithmétique de toutes les valeurs de 
consommation. 


Lignes 600-620 : Calcul de la moyenne arithmétique et sortie du 
résultat 


Ligne 630 : Fin du programme 


Lignes 640-680 : Sous-programme "attendre" 


Résultats du programme: 


Après le lancement du programme, des valeurs sont lues et/ou 
entrées (et éventuellement sauvegardées directement). La sortie du 
résultat peut ensuite se présenter à l’écran de la façon suivante: 


Consommation Date 
8.05 litres 1.2.85 
8.55 litres 9.2.85 
8.13 litres 20.2.85 
7.81 litres 1.3.85 
Soit une consommation 


moyenne de : 8.14 litres 


LAS 


3.3 Optimisation de litinéraire 


La voiture sera à nouveau au centre de nos préoccupations. Il 
s'agit toujours de consommation de carburant, mais cette fois de 
façon indirecte. 


L'objet de ce chapitre est de planifier un voyage. Il faut indiquer 
les différentes localités que vous voulez parcourir et les 
distances entre ces localités. Votre CPC vous dira alors dans quel 
ordre vous devrez parcourir ces localités pour faire le moins de 
kilomètres possible. Il s’agit donc d’économiser l'énergie de votre 
voiture ainsi que la vôtre. 


Il n’est toutefois pas si aisé de trouver un algorithme (procédure 
se répétant d’après un schéma déterminé) approprié à la solution de 
ce problème. Vous pensez peut-être que votre ordinateur devrait 
prendre en compte tous les ordres possibles. Et c’est effectivement 
ce qu’il faudrait faire dans le cas où seul un petit nombre de 
localités serait entré. Il y a par exemple pour une entrée de trois 
localités a, b et c (le lieu de départ reste le même) deux 
possibilités d’ordre différentes: a-b-c et a-c—b. Si vous entrez 4 
localités a, b, c et d, il y a 6 possibilités différentes: a-b--<d, 
a-b-d<, a-d-c-b, a-d-b-c, a-c-b-d et a-c-d-b. 


Ces différents ordres ne se distinguent que par l'emplacement des 
éléments (ou localités). Le nombre d’ordres de n éléments, c’est-à- 
dire le nombre de possibilités différentes pour parcourir les n 
localités indiquées égale n! (n! = 1 * 2 * 3 * .… * n). Si vous 
calculez par exemple 10!, vous obtenez: 10! = 3628800. S'il fallait 
donc envisager réellement toutes les possibilités, cela conduirait 
certainement à des temps de calcul beaucoup trop longs. 


On obtient en général un résultat raisonnable en allant 


consécutivement d’une localité à la plus proche. Il se peut 
cependant que 4 localités soient ainsi réparties dans l’espace: 
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C 


En partant de À on obtiendrait l’ordre A - B - C - D alors que 
c’est l’ordre À - C - B - D qui est le plus avantageux. 


C’est pourquoi le programme suivant tient compte de la possibilité 
que, lors du classement de chaque nouvelle localité parmi les 
localités déjà ordonnées, il soit plus avantageux de ne pas aller 
tout de suite dans la localité la plus proche mais d’abord dans la 
deuxième plus proche. 


Le programme compare ainsi entre eux n-1 (n = nombre de localités 
entrées, y compris le point de départ) itinéraires et sort en 
résultat le choix le plus avantageux. 


Appliqué à l’exemple donné plus haut, les ordres suivants seraient 
examinés: 


>>> 
How 
uw 
05% 


La localité figurant en seconde et en troisième position est donc 
toujours au moins une fois non pas la localité la plus proche mais 
la plus proche en second. 


Cet algorithme trouvera en général l'itinéraire le plus avantageux 
pour votre voyage et vous libèrera ainsi d’un travail qui peut être 
fastidieux si vous voulez parcourir de nombreuses localités au 
cours de votre voyage. 
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Programme: 


14 

146 
119 
124 
155 
149 


JU Ton 
AE CAEN ELTE EN) 


Fa PQ Pi Pan ee ee dt 
Ci Pre oi LD O0 —J 
CCC CE EX | 


REM 17 
CLS 


PRIHT'IF - Proïramme d'optimisation" 


PRINT TAESé:"d'itin 
FRIHT: PRINT: PRIHT 
PRINT TAEC11: "Eern 
GOSUE 32 

PRIHT "Hombre total 
INPUT en compte "in 


DIM Hé nt, 26 ni, ob nel nint, fs) 


FRIHT'Veuillez ent 
FRIHT'"'ou un Sambol 
IHPUT "EC" abord la 
FOR 1=£ TÜ n 
PRINT'"'Hom de ville 
HEXT i1:CLS 
PEINHT'"'Veuillez ent. 


FRIHT'en kilometres 


FF i=1 TO mi 

FÜR izi+i TO 
FRIHT obi ii"; co 
CDS ET-TSS EE 

HET Jj:HEXT ji:CLS 
FOR uzi TO n-i 

FOR i=2 T0 n's$it 


eraire" 


d KHowal, 1955" 


de illes a Prendre" 


:FPRIHT 


rer les noms de ville" 
e de ville :":FRIHT 


ille de depart 


sobel:FR 


Ho "iii: IHPUT o&i it 


rer les distances suivante 


2": PRINT 


Li, :IHPUT æéi, it 


UM: MEXT à 


isl:s$ ii=o$ciu:l=E 


A ky=16"350 
A FOR j=i TO n 
A FOR k=zi TO n 


SGA IF s$Ck zogbé ii THE 


HEXT _k 
IF éti:itku THEH 
HEXT à 


H 3354 


Euyzeli,j1:4zi 


IF uzl AND Er=@ THEH &61,92=14"34:kr=1:GOTO 


A 2$< 1l)=0$6 45 
4 fau = fs Cu + 


IF lén THEH i=9:1= 
IF u:1 THEH dif 


4 FOR iz1 TO n:h$iit= 
A fs=fscu):GOTO 44 
A IF fsiui;zfs THEH 
A FOR i=1 TO n:h$ci2 


fssfscui 


4 kr=G:HEXT 1 


FRIHT"L'itineraire 
FOR i=i TO n 
IF i=n THEH PRIHT 


4 PRINT h$ciïi"- 


l+1: GOT F4 
E$6 12): HEXT i 
444 

=2$€ i):MEXT 
aFtimal est le 


h$éi3:GOTO 434 


5]. - 


suivant 


IHT 


D 7 
CA 


LU 


2": PRINT 


HEAT ji 
FRIHT:FÉIHT "Suit" fsi"kilometres., " 
PRINT:PRIHT:PRINT"'Fin des calculs" :ENC 
4 KEM SP Attendre 

LACATE F.25 


A FRIHT'"'FrapPhez une touche 5,.%,P" 


CA CN EN EN LA EAN CN 4 


#B=INEE TS: IF x$="" THEM 55 
CLE : RETLUEH 
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Liste de variables: 


ei,j) = distance entre deux localités 

fs = nombre de kilomètres pour l'itinéraire optimal 

fs(i) = nombre de kilomètres pour une possibilité d'itinéraire 
h$(i) = les localités dans l’ordre optimal 

i = variable de comptage 

j= variable de comptage 

k = variable de comptage 


kr = variable de contrôle pour le rangement de la localité la plus 
proche en second 


kw = distance la plus courte d’une localité à une localité qui n’a 
pas encore été ordonnée 


1 = variable de comptage pour les n-l ordonnancements (pour chaque 
possibilité d’itinéraire) 


n = nombre de localités 
o$(i) = les noms de localités entrés 


q = index pour le rangement de la localité la plus proche ou de la 
deuxième plus proche 


s$(i) = les localités  ordonnées pour chaque possibilité 
d'itinéraire 


u = variable de comptage pour les n-1 possibilités d'itinéraire 


8%; 


Description du programme: 


Lignes 10-70 : Titre 
Lignes 80-90 : Entrée du nombre de localités 


Ligne 100 : On réserve de la place en mémoire pour les variables 
indexées 


Lignes 110-160 : Entrée des noms de localités 


Lignes 170-230 : Entrée des distances 
En ligne 220, une distance e(i,j) est fixée égale 
à la distance non entrée e(j,i) car dans la boucle 
en lignes 280-330 la variable de comptage j varie 
de 1 à n, indépendamment de la grandeur de la 
variable i. 


Ligne 240 : Ouverture de la boucle de programme pour les n-Il 
possibilités d'itinéraire 


Ligne 250 : La variable s$(i) est "libérée" des anciennes 
affectations pour être disponible pour la nouvelle 
possibilité d'itinéraire 


Lignes 260-270 : Définition des variables i, 1, s$(1) et kw (s$(1) 
= localité de départ o$(1). On suppose pour la 
variable kw la valeur arbitraire très élevée 10730 
qui ne doit pas être atteinte lors des indications 
de distance. 


Lignes 280-330 : La plus petite distance d’une localité à une 
localité "non encore parcourue" j est recherchée 
et stockée provisoirement dans le tableau kw. On 
enregistre dans le tableau q quelle localité a été 
affectée à j. On recherche en lignes 290-310 si la 
localité actuelle a déjà été affectée ou 
"parcourue". 
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Ligne 340 : Lors du premier parcours, on cherche chaque fois 
quelles sont les distances les plus courtes. Les 
parcours suivants se distinguent par le fait que les 
distances les plus courtes e(i,q) sont fixées égales à 
1030 en des endroits toujours différents (en fonction 
de u et 1) pour pouvoir rechercher à nouveau la plus 
courte distance (c’est alors bien sûr la deuxième plus 
courte puisque la distance la plus courte a reçu la 
valeur 1030). La variable de contrôle kr permet que 
cette procédure ne soit exécutée qu’une seule fois. 


Lignes 350-360 : La localité trouvée est stockée provisoirement 
dans le tableau s$(i) et la distance en kilomètres 
trouvée est additionnée à la valeur du tableau 
fs(u). 


Ligne 370 : Si l<n, la procédure de rangement est poursuivie pour 
chaque itinéraire possible 


Lignes 380-400 : Lors du premier parcours (alors u = 1) 
l'itinéraire trouvé est considéré comme optimal 
(définition des variables h$(i) et fs) pour des 
comparaisons ultérieures (ligne 410) 


Lignes 410-430 : Le nombre de kilomètres de la possibilité 
d'itinéraire trouvée est comparé à Ja valeur 
correspondante du parcours précédent. Le cas 
échéant, les variables h$(i) et fs reçoivent les 
nouvelles valeurs. 


Ligne 440 : La variable de contrôle kr est fixée à O0 et un nouveau 
parcours est effectué (à partir de la ligne 240) 


Lignes 450-500 : Sortie du résultat 
Ligne 510 : Fin du programme 


Lignes 520-570 : Sous-programme "attendre" 


- 55 - 


Résultats du programme: 


Entrons 6 localité$ réparties géographiquement de la façon suivante 
(D est le point de départ): 


avec les distances exactes suivantes: 
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Nous obtiendrons: 


Voici l'itinéraire optimal: 

D-A-F-E-C-B 

Ce qui représente 104 kilomètres. 

Par rapport aux programmes précédents, l’augmentation du délai de 
calcul est évidente. Si vous utilisez ce programme pour un nombre 


relativement important de localités, vous devez tout de même faire 
preuve d’un peu de patience. 


ESS 


3.4 Les coûts de la voiture 


Vous trouverez au chapitre 6.2 un programme volontairement très 
général de budget. Comme il vous permet de créer vous-même des 
catégories qui peuvent ensuite être sorties individuellement, ce 
programme peut parfaitement être également utilisé pour le domaine 
des coûts de la voiture. Les catégories possibles sont par exemple: 
assurance, impôts, dépenses d’essence, réparations, entretien, 
amendes, etc. Si vous voulez utiliser ce programme exclusivement 
pour les coûts de votre voiture, une extension du programme pour 
calculer le coût moyen au kilomètre serait très intéressante. Il y 
a plusieurs possibilités d’intégrer les indications de kilométrage 
dans ce programme: 


1) Entrée des kilomètres au besoin, par une section particulière 
du programme pouvant être appelée à partir du menu 


2) Entrée du kilométrage actuel lors de chaque dépense d’argent 


3) Lors de l’entrée d’une période pour la section "calculs" du 
programme, une valeur pour le kilométrage est réclamée et le 
coût moyen au kilomètre est sorti immédiatement 


La première possibilité présente l’inconvénient que la section de 
programme "calculs" n’utilisera pas toujours le nombre exact de 
kilomètres parcourus puisque le kilométrage n’est pas actualisé 
lors de chaque entrée. La seconde possibilité élimine cet 
inconvénient mais il est à l'inverse improbable que vous ayez 
toujours en tête le kilométrage actuel de votre voiture. La 
troisième possibilité est la plus simple à intégrer du point de vue 
de la technique de programmation et elle élimine en outre les 
inconvénients évoqués. Vous n’avez plus en effet à noter le 
kilométrage que de temps en temps. D’ailleurs pour les coûts de la 
voiture, il est de toute façon judicieux d’indiquer dans la section 
"calculs" du programme des périodes de l’ordre de l’année ou de la 
demi-année puisque les impôts ou les primes d’assurance ne tombent 
également qu’une fois ou deux par an. 
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Pour modifier ainsi le programme de budget, vous devez ajouter les 
lignes suivantes: 


1335 
1494 
1514 
1515 
1516 


1517 


FRIHT:FAIHT:FRIHT "Combien de kilometres avez-vous" 
IHPUT'"parcouru durant cette Fericde "Em 
PRIHT:PFRINT:FEIHT'"' apporte au kilometre." 
FRIHT'"'cela donne un cout de" 

PRINT IHTésu-kmt146+8, Su 1G63i"FF par Em." 

GOSUE 246 


Seule la ligne 1400 en efface une autre. On peut cependant 
facilement renoncer au commentaire "Je calcule". 


Nous vous souhaitons donc une utilisation profitable du programme 
et … de ne pas tomber à la renverse quand vous découvrirez ce que 
vous coûte votre voiture. 
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3.5 Le puits à idées 


- Simulation du parcours d’une Porsche 935 de 700 chevaux sur 
le nouveau Nürburgring. 


Enregistrement précis d’une course (le passage d’un véhicule 
peut être détecté avec des cellules photo-électriques). 


- Autos réalisées avec l'ordinateur (dessin, objets vidéo 
commandés électroniquement, tests d'endurance avec un 
simulateur). 


- Entraînement à la circulation (maîtrise de situations de 
circulation simulées). 


- Ecole de conduite: élèves, cours, comptes et résultat 
journalier. 


- Banque de données pour des comparaisons entre automobiles 
(vitesse maximum, accélération, résultats de tests etc.). 


- Tests de connaissances géographiques avec l’ordinateur. 


- Et bien d’autres choses encore. 


500 





Lot > 


4. Argent et crédit 


4.1 Remarque préalable 


Lorsqu'il s’agit d’argent, cela devient sérieux et la plupart des 
gens veulent tout savoir de façon très précise. 


Les caisses d'épargne et les banques utilisent depuis longtemps des 
ordinateurs pour calculer vite et sans erreur les problèmes les 
plus compliqués. Vous devez en tant que client vous contenter le 
plus souvent des indications faites par l'institut de crédit, par 
exemple lorsqu'il s’agit d'obtenir un crédit. Ces indications 
peuvent parfois être confuses ou très différentes d’un institut à 
l’autre de sorte qu’une comparaison des offres risque d’être très 
difficile. C’est pourquoi nous allons essayer dans ce chapitre de 
mieux armer le client des banques de façon à arriver à une plus 
grande égalité des chances. 


Naturellement, les problèmes et programmes que nous vous présentons 
ici ne peuvent se comparer aux logiciels très puissants des grands 
instituts de crédit. Ils peuvent cependant vous être utiles si vos 
entrées et vos sorties d’argent ne sont pas toujours équilibrées et 
si vous êtes parfois amené soit à demander un crédit soit à placer 
de l’argent. 
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4.2 Le calcul des intérêts 


La base de tout ce qui touche à l’argent et le crédit est le calcul 
des intérêts. D’un point de vue purement mathématique, c’est là un 
problème assez simple. Peut-être certains lecteurs ne se 
souviennent-ils cependant pas comment les grandeurs élémentaires du 
calcul d’intérêt sont calculées. C’est pourquoi le programme 
suivant vise plus à vous permettre de vous exercer au maniement de 
ces grandeurs qu’à une application pratique pour vos plans de 
financement. 


Les formules de calcul suivantes sont à la base du programme: 


Capital * Temps * Taux d'intérêt 
Intérêt = 
100 


Intérêt * 100 
Capital = 
Taux d'intérêt * Temps 


Intérêt * 100 
Taux d'intérêt = ———— ————— 
Capital * Temps 


Intérêt * 100 
Temps = — 
Capital * Taux d’intérêt 


L’indication du temps se fait ici en années. Une année a 360 jours 
ou 12 mois de 30 jours. Si vous voulez prendre en compte les mois 
ou/et les jours, vous devez effectuer les calculs de conversion 
appropriés. 
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Programme: 


REM 13 
CLS 


3Q PRINT"IS - Frogramme de calcul d'interets" 
44 FRINT THES6 "de taux d'interet, du capital ou" 


= QD 


5 
3 
1 
1 



















A FRIHT'"'Le taux 


PRINT TAB(6)"de la duree d'immobilisation" 
PRINT TABié"du capital" 

PRINT :FRIHT:PRIHT 

PRINT THE 112 "Eernd Kowal, 1385" 

GOSUE 464 


FRIHT TAB 12 5"Selection":PFRIHT:FRINT 
PRIHT'"'Que faut-il calculer T':PRIHT 
PRINT TAES34:"Entree! : PRIHT 
PRINHT'Interets", TABS 3302 "1": PRIHT 
PRIHT'"Taux d'interet", TABEIS3S "2 PRIHT 
FPRIHT"ÉaPital", TAËC33 "SU: PRINT 
FFIHT'"'Curee d'immobili 
PRIHT"du capital". TAE: 
FRIHT: PRINT: PRINT: THPUT" tre choix!" ;a 

IF a3%1 OR 24 THEH CLS :GOTO 145 

CLS: PRINT'Entres des valeurs connues :'OPRIHT 
IF a< 1 THEH IHPLIT'Interets en FF "igi 
IF 3: 








3 THEH IHPUT"'CaPpital Len FF "ik 
THEN IHPFUT'"'Immobilisation Sen anness 
FRIHT : FRIHT 

3:1 THEH 516 





Fist tedées. 1544 

Re ae “annees, le caPital Froduira" 
PRINT Zii"FF d'interets, 

GOT 418 

IF 3:22 THEH 3SE 

es=£itian”k 







GOTO +14 
IF a: THEN ce 
= 21007 | 
FRIHT"Le cape 
GOTO dia 

Ed=r1#180-H-Zs 





al s'eleve a"3E5 "FF." 


dat FRIHT"'L'immabilisation est de"iZd; "annees," 
416 PRIHT:FRIHT:IHPFUT'"'Encore un calcul Conti "ia$ 
424 IF a$="a" THEH CLS: GOTO 1664 

454 IF a$gii'"n" THEH dif 

444 PRINT:FRIHT:FRIHT"'Alorzs j'ai fini !" 

454 EHC 

Jén FEM SF Attendre 


G LOCATE 7,25 NU 


ire THEH IHPUT'"Taux d'interet Cen Pourcentage 


“;zd 


424 FRIHT'"'FraPFez une touche 5,.4,.F" 
499 x$=INKETS:IF x$="" THEH 434 
Sag CLS: RETURN 
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Liste de variables: 


a = variable de réponse pour le menu 


a$ = chaîne de réponse (o/n) 


K = capital 


Zd = durée de l’immobilisation du capital 


Zi = intérêt 


Zs = taux d'intérêt 


Description du programme: 


Lignes 10-90 : 
Lignes 100-190 : 


Lignes 200-250 : 


Lignes 260-400 : 


Lignes 410-440 : 


Titre 
Sélection dans le menu 


Des valeurs sont demandées pour les grandeurs 
connues 


Les grandeurs inconnues sont calculées et le 
résultat est sorti 


Saut au menu s’il reste encore un calcul à 
exécuter. Sinon sortie d’un commentaire. 


Ligne 450 : Fin du programme 


Lignes 460-510 : 


Sous-programme "attendre" 
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Résultats du programme: 


Si nous entrons dans le menu un 1, on nous demande ensuite les 
valeurs correspondant au taux d'intérêt, au capital et à la durée. 
Si nous prenons un taux d'intérêt de 8.95%, un capital de 347 F et 
une durée de 4 ans, l’ordinateur nous annonce: 


Au bout de 4 ans, le capital 
produira 124.226 F d'intérêts 


Un autre calcul (o/n) ? 


L'éT= 


4.3 L’argent de votre compte d’épargne 
(calcul d'intérêts des intérêts) 


Si vous portez un certain capital dans une banque, au bout d’un an 
des intérêts s’ajouteront à ce capital. L’année suivante - et cela 
n’a pas été pris en compte au chapitre précédent - les intérêts 
déjà produits produiront eux-mêmes des intérêts (intérêts des 
intérêts). C’est pourquoi le programme du chapitre précédent se 
prête mal à une application pratique. Le programme que nous vous 
proposons ici calcule lui par contre exactement comment votre 
argent "grandit" sur votre compte d’épargne. Il vous suffit 
d'indiquer une somme de départ et un taux d'intérêt quelconque. 
Vous obtenez alors en résultat le montant final après un nombre 
d’années quelconque. 
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Programme: 


FE 13 
CLS 
FEIHT"IS -— Pros anime de caleul d'interets de 
FRINT THÉ "interets avec dez interets PFaues 
FRIHT TAES“ annuellement. Pour un caFPital" 
FRIHT THECÉ "de depart donne" 
FEIHT:FEIHT:FEIHT 
FEIHT TABE 11) "Éernd Eoual, 1355" 
GOSUE 26 
INPUT" ap ital de delart "5 AK 
INPUT "Taux d'interet annuel Mis 
FEIHT'"'Ouree d'immoabilisation" 
IHFUT "qu capital en annees Mid 
is: l=1 


PE 
RAELA EUX) 


UE Le 





SRELUENUERTE 


Din D: 


9 item Dim 
je 5 


A 1 A 
CR SCENE A EN] 


ce 
2 


FRIHT:FOR el T0 £d 
EbEAEEES- 166 

EL=AE +2 
FRIMT; LSIHG "HHKH Mili 

FRIHTi LSIHS UHHAHHHEHHE, ## "ieb: 

FRINT: USING MHHHHHHHHHEHE, HH': EE 

AK=EE 

IF isi THEH lit]: isi+e: GOSUE 2684: GOTO 1 
MEST 1 

EHC 

FE SF Attendre 

LOCATE FE 

FÉIHT'Fraphez une touches EUR" 

4 H=INHÉETS:IF :«:6="" THEN 36 

44 CLS: RETURH 





dim pe be be pe me pi LU Un Din Re Gi Poe 
DARLUELTELXE Le 


re DARSÉEEE RSS RSR 











Tr it 


Er 






it ut 
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CLS: PRINT" Annee Pntetret Carital" 


Liste de variables: 


Ak = capital de départ 
Ek = capital final 
i = variable de comptage 


j = variable auxiliaire qui permet une interruption du programme 
lorsque l’écran est plein 


1 = valeur variable de début de boucle 
Zb = montant des intérêts par an 
Zd = durée de l’immobilisation du capital 


Zs = taux d'intérêt annuel en pourcentage 


Description du programme: 


Lignes 10-90 : Titre 
Lignes 100-130 : Demande des données de départ 


Ligne 140 : La valeur de début de boucle est fixée sur 1 et la 
variable auxiliaire j sur 20 


Ligne 150 : L'écran est vidé et un titre de tableau est sorti 


Lignes 160-240 : On calcule pour chaque année le montant des 
intérêts et le capital final. Les résultats sont 
sortis formatés. Après la sortie d’une ligne de 
résultat, le capital final calculé devient le 
capital de départ pour la période suivante (ligne 
220). 
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La ligne 230 permet l'interruption du programme 
après 20 périodes (sous-programme "attendre"). 
Dans ce cas, la valeur de départ de la boucle 1 
est modifiée en conséquence. 


Ligne 250 : Fin du programme 


Lignes 260-310 : Sous-programme "attendre" 


Résultats du programme: 


Pour un capital de départ de 1000 F, un intérêt annuel de 4.8% et 
une durée de 10 années, on obtient: 


Année Intérêt Capital 


1 48.00 1048.00 
2 50.30 1098.30 
3 52.72 1151.02 
4 55.25 1206.27 
5 57.90 1264.17 
6 60.68 1324.85 
7 63.59 1388.45 
8 66.65 1455.09 
9 69.84 1524.94 
10 73.20 1598.13 
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4.4 L'intérêt annuel effectif 





Lorsque vous interrogez un institut de crédit sur ses propositions 
de crédit, les conseillers vous fournissent les offres les plus 
diverses. Sans indication de l'intérêt annuel effectif, il est 
difficile voire impossible de comparer les offres. L’intérêt 
effectif indique en effet quelle offre de crédit est la plus 
avantageuse. 


Bien entendu, les instituts de crédit calculent pour leur 
comptabilité interne l'intérêt effectif. Mais un certain nombre de 


banques se font tirer l'oreille lorsqu'il s’agit de communiquer à 
leurs clients l'intérêt effectif. 


Mais qu'est-ce exactement que l'intérêt effectif et comment est-il 
calculé? 


L'intérêt effectif intègre tous les éléments du prix d’un crédit. 
C’est en quelque sorte une mesure du prix d’un crédit. 


Suivant la méthode de calcul utilisée, le calcul de l'intérêt 
annuel effectif est plus ou moins simple. Avec la méthode 
"mensuelle", le problème est vraiment simple à résoudre: 

24 * (taux d'intérêt mensuel * durée en mois + b) 


durée en mois + 1 


où: 


(e) 
(I 


taux d'intérêt effectif en % par an 


b = frais de gestion en % du montant originel du crédit 


10e 


Tout se complique si la méthode utilisée est la méthode des 360 
jours. C’est l’équation suivante qui permet de calculer l'intérêt 
annuel effectif pour un crédit avec paiement mensuel d'intérêts et 
calcul mensuel des intérêts (par rapport au montant du crédit): 











b . 
1 + 100 p qi 
+ 
M 100 pe D) # (qi - 1) + a+ li x m 
L 24 1+2 *] 
12 
où: 
e = taux d'intérêt effectif recherché en % par an (100 * i) 
= e/100 
= ]+i 
M = durée en mois 
= nombre de taux mensuels à réunir (= 12*J+m) 
J = durée en années pleines 
= nombre de fois qu’apparaît M/12 
m = durée restante en mois = M - 12 * J 
p = taux d'intérêt nominal par mois en % du montant original 
du crédit 
b = frais de gestion en % du montant originel du crédit 
Cette équation ne peut être réduite à e = … Si l’on excepte des 


solutions mathématiques d’approche très compliquées, e ne peut être 
déterminé que par des tâtonnements successifs. Ce n’est pas pour 
rien que des ordinateurs sont utilisés dans les banques pour 
déterminer l'intérêt effectif. 


RE 


Si la formule du calcul mensuel est accessible même aux non- 
mathématiciens, la méthode des 360 jours a l’avantage de fournir 
des résultats plus précis. 


Avec l’aide de votre CPC et un programme approprié, la 
détermination du taux d'intérêt effectif n’est pas si difficile. 
Nous partons pour cela du principe suivant: 

Si nous amenons les termes à gauche du signe égale à droite de ce 
signe (en effectuant les changements de signe qui s’imposent), nous 
obtenons une équation de la forme 


Si nous essayons maintenant différentes valeurs pour e, alors 
l'expression à droite du signe égale est inférieure à O si la 
valeur choisie pour e est trop petite. Elle est par contre 
supérieure à O0 si nous choisissons une valeur trop grande. 


Le programme suivant choisit donc des valeurs toujours plus grandes 
pour e jusqu’à ce que l'expression à la droite du signe égale soit 
supérieure à 0. Pour approcher de plus près la valeur exacte de e 
on choisit pour les valeurs-tests des intervalles et des écarts de 
plus en plus réduits de façon à obtenir au bout du compte un 
résultat précis à 4 décimales près après la virgule. 


Une telle méthode n’est pratiquement possible qu'avec un 
ordinateur. Sinon le temps perdu dans les tâtonnements serait 
beaucoup trop important. Vous devez indiquer au programme 
simplement les valeurs pour les grandeurs M, p et b de l’équation 
donnée plus haut. 
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Programme: 


FEM 11H 

CLS 

FRINHT"I14 — Froararmme de calcul du taux" 
FRINT TAEG Fi"d'interet effectif" 
FEIHT:FEIHT:FRIHT 

PRINT TAEG 11: "Bernd Koual, 1355" 

GOSUE 14 

FRIHT'Honmbre de mensualites" 

INPUT consenues "im: PFRIHT 


A FRIHT"Taux d'interet mensuel nominal en 4 du" 
4 INPUT montant originel du credit "5oFr:FRIHT 

A PRIHT"'Frais de Sestion en % du" 

A INPUT "montant originel du credit "ob 

GIF m=û OR P=<A THEH CLS: GOTO 84 

4 PRIHT:FRIHT : PEIHT : PRINT 

4 ki=l:k£=ifgis 

A FÜR ezki TO k2 STEF s 

M i=e/148g:q=1+i: isFléim 12: rmem-1li#i 

4 lt=i +108 %-m+p/14@:z=9") 





mise lei ile He A i-1 1 

mes + rm dl EE 2Ermeé ltrme 124 
Mas nd tn lt 

IF wasä THEH GÜSUE 254: GOT 174 


= 0 LD OÙ JM ON LB ii Po ee D D D D D D D mn 


DARARENXI 








à Fo Pi Ps des pes pe ee pt pe es et et LD OS OC Be tft 





A HET 

A FRINT"Taux d'interet annuel effectif ‘PRINT 
4 PRIHT'e = "USING "##.###hl ie; : PRIHT"X 

A FRÎNT:FRIHT: PRINT'Fin des calculs":EHD 

A kise-s:khäse:ses-14 


IF s=5, 464541 THEH 25 

FETURH 

FEN SF Attendre 

LOCATE 7,25 

FRINT'"'FraFrez une touche 5.4,F" 
#“S=INÉETS: IF x$="" THEN 54 
CLS: RETURH 


DA EN ENT EE) 


= 
si Lt 


Di Ci Qi Co de Qi Po Fo Per Po Per Fa Pa 


GE Qi em Q'DO JDU E L 


_ 
Det 


ETS 


Liste de variables: 


b = frais de gestion 


e = taux d'intérêt effectif recherché 
i = e/100 
j = durée en années pleines 


ki = valeur initiale de la boucle du programme (limite inférieure 
de l'intervalle) 


k2 = valeur finale de la boucle du programme (limite supérieure de 
l'intervalle) 


It = partie gauche de l’équation (à gauche du signe égale) 

m = durée en mois 

nl = premier opérande du dénominateur (à droite du signe égale) 
n2 = second opérande du dénominateur (à droite du signe égale) 
p = taux d'intérêt nominal par mois 

q = I+i 

rm = durée restante en mois 

s = pas de la boucle du programme 

vg = valeur à comparer (supérieure ou inférieure à 0) 


z = compteur (à droite du signe égale) 
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Description du programme: 


Lignes 10-70 : 


Lignes 80-130 : 


Titre 


On demande les valeurs de départ 


Ligne 140 : On demande à nouveau une valeur si un 0 a été entré 


pour 


m ou pour p 


Ligne 150 : Sortir quatre lignes vides 


Ligne 160 : On affecte une valeur de départ aux valeurs initiale, 
finale et au pas de la boucle de programme 


Lignes 170-240 : 


Lignes 250-260 : 


Boucle pour calculer la valeur à comparer vg à 
partir de tous les termes de la formule de calcul 
en fonction des différentes valeurs de e (e est 
l'index de comptage de la boucle). 

Si en ligne 230 la valeur à comparer est 
supérieure à 0, on saute au sous-programme (ligne 
280) qui modifie les valeurs initiale et finale 
(qui constituent les limites de l'intervalle) 
ainsi que le pas de la boucle. On saute en outre 
dans ce cas à la ligne 170 (nouveau parcours de la 
boucle). 


Sortie du résultat 


Ligne 270 : Fin du programme 


Lignes 280-300 : 


Lignes 310-360 : 


Sous-programme de réaffectation des variables ki, 
k2 et s. Les valeurs pour kl et k2 sont choisies 
de façon à ce que la vraie valeur de e soit 
nécessairement comprise entre k1 et k2 (lors du 
parcours pour es, vg était encore négatif!). 

En ligne 290 figure un test pour l'arrêt du 
programme. 


Sous-programme "attendre" 
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Résultats du programme: 


Si nous entrons après le lancement du programme les valeurs 50 
(nombre d’échéances mensuelles), 0.5 (taux d’intérêt nominal par 
mois) et 1 (frais de gestion en %), nous obtenons le résultat 
suivant: 


Taux d'intérêt annuel effectif: 
e = 12.0329 % 
Avec la formule du calcul mensuel nous obtiendrions un taux 


d'intérêt effectif légèrement plus élevé: 


24*(05*50+1) 
= —— = 122353 
50+1 


278 


4.5 Remboursement de dettes 


Ce chapitre traite également des dettes. Si vous demandez par 
exemple un crédit de 100 000 F votre banque vous compte en général 
un agio. Cet agio doit être décompté mais il n’est pas payé. Il est 
simplement retenu par votre banque comme une sorte de taxe. Lors du 
calcul des intérêts et du remboursement de la dette vous devez donc 
partir de la dette nominale et non des sommes versées. 


Lors de l’acceptation du crédit, vous convenez avec votre banque 
d’un taux d'intérêt et d’un remboursement initial (également en 
pourcentage du montant nominal du crédit). C’est de ces deux 
éléments que se composent les remboursements que vous aurez à 
effectuer chaque mois ou chaque trimestre. Avec un taux d'intérêt 
de 6% et un remboursement initial de 2%, cela représente 2000 F par 
trimestre ou 8000 F par an. Ces remboursements ne varient pas 
pendant toute la durée du crédit. La partie extinction de la dette 
de ces remboursements augmente toutefois constamment en même temps 
que diminue la partie correspondant aux intérêts puisque le capital 
produisant des intérêts se réduit d’année en année. C’est pourquoi 
le remboursement du prêt ne s'effectue pas dans l’exemple ci-dessus 
en 50 ans mais seulement en environ 23 ans (pour un taux d'intérêt 
inchangé). 


Les offres de crédit différent notamment dans la durée du taux 
d'intérêt fixé conventionnellement. Une fois cette durée écoulée, 
le taux d'intérêt peut être augmenté ou diminué en fonction de 
l’état du marché. Mais vous pouvez alors dans ce cas rembourser 
immédiatement le solde de la dette si vous le souhaitez, que ce 
soit avec vos propres moyens ou que ce soit avec de l'argent à 
nouveau emprunté. 
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Il peut donc être très important pour vous de connaître le montant 
du reliquat de la dette. Ce montant peut être calculé à l’aide d’un 
plan de remboursement qui reconstitue la gestion de compte d’un 
institut de crédit. Il faut bien sûr prendre en compte tous les 
paramètres du crédit tels que remboursements, capital produisant 
des intérêts, intérêt, extinction de la dette et reliquat de la 
dette. 

C'est un tel plan de remboursement que produit le programme 
suivant. On vous montre en même temps comment on peut avec le CPC 
créer des tableaux, avec le mode 80 caractères et l'instruction 
PRINT USING. 


Quelques remarques sont cependant nécessaires au sujet de ce plan 
de remboursement: 


1) On part comme base de calcul de la dette nominale et non du 
montant effectivement payé. 


2) C'est cette dette nominale qui produit des intérêts et qui est 
remboursée 


3) Bien que les remboursements soient payés régulièrement (tous 
les trimestres dans notre programme), l'intérêt est calculé 
pour chaque année pleine par rapport à un montant de capital 
inchangé. Ce n’est qu’après écoulement d’une année pleine que 
le capital produisant des intérêts diminue. 


4) Le reliquat de la dette se réduit par contre avec chaque 
remboursement à raison du montant correspondant à l’extinction 
de la dette. Au bout d’une année pleine, ce reliquat est égal 
au capital produisant intérêt. 
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5) Les mouvements de compte sont calculés en fin d’année. Les 
intérêts, les paiements d’extinction de la dette et de 
remboursement sont additionnés et le capital est diminué du 
montant correspondant à l'extinction de la dette. Le reliquat 
de la dette n’est pas modifié par ces calculs puisqu'il 
diminue avec chaque remboursement (bien sûr uniquement lorsque 
cela correspond à l’extinction de la dette). 


6) Le plan de remboursement se poursuit jusqu’à ce que le 
reliquat de la dette soit inférieur au remboursement ce qui 
est signalé par un message dans notre programme. 


7) Pour optimiser la sortie à l’écran nous avons renoncé dans ce 
programme à sortir isolément le message "Frappez une touche 
S.V.P" lors de la création du tableau. Il faut par ailleurs 
tenir compte du nombre de chiffres dans l'instruction PRINT 
USING. Si vous entrez des montants de l’ordre du milliard, la 
sortie du tableau sera perturbée. 


Programme: 


RE 111 
CLS 
FRIMT"I11 - Frogramme Pour etablir" 
FRIHT TAEG 7 5"un Plan de remboursement" 
PRINT :FPRIHT:FAIHT 
PRINT TAB 11: "EBernd Éowal, 1955" 
GOSUE €4f 
INPUT Montant nominal du credit "iKb:PRINT 
INPUT" Taux d'interet nominal "es: PRIHT 
IHPUT "Remboursement initial en % "it:FRINT 
FRINT'Entree de 143 date de versement :" 
IHPUT "Jour "ta 

IHPUT"' Mois "om 

IHPUT"'Annee "; JS: FRINT 

JS=RIGHTSE i$, 2: je VALLE 80 

PRIHT"L'est donc le"itai" Mimi" "ii 
PRIHT"qui sera pris. Comme ie ee versement, " 
GOSUE 64@:CLS:MODE 2 

GOSUE 554 

kisi:k2SS:R=G:Zi=@:Tizg:Ks=Kb 


mme (DO JTE Bio 
D CO JM EN B Loi Rue 0 M D 0 D D 
DCR) 


DR RUE ER EAU 


sois 


214 
z24 
234 
24û 
259 
264 
cra 
24 


F3 
DE 
1m QE 


A 
A 


FÜR i=ki TO KZ 

IF izki THEH 269 

IF m>3 AND i=93 THEN j=9:GOTO 256 

IF m>9 THEH i=i+i 

IF m>3 THEH m=m-9 ELSE ments 
FEIHT;:USING"##. "ta; : PRINT; USINGU##. "mi 
PRINT;:USIHG"#H#" ; Jj; 

IF ii THEH PRINT TAB 11 "Versement": :GOTO 314 
IF i=ki THEH FRIHT TAB ii2"Liquidation";:GOTO 319 
FRIHT THE 112"Traite "ii-1; 

PRINT TABSZS 3 USING"####E. #4" 5 F5 

PRIHT;LSING" HHHHHHE, #H' KE: 


34 
31 
32E 
339 PRINT; USIHG" HHHHH. #4": Zi; 
344 PRIHT:USIHG" HHHHH. HAT; 
354 FRIHT;USIHG" HHHHHHH, HA RE 
364 IF i>k1i THEH 41G 
374 IF izi THEH F=Kb#iZs+t 484 ELSE R=k'4 
389 FRINT 
394 Zi=Kb#£zs/44a 
494 Ti=F-<£i 

14 


BELRB 
un Fo 
AR] 


A FRs=kRs-Ti 


H THEH Si 
: THEH défi 
Rak#d:Zizzi#d:Ti=Ti#4 









459 Kb=Kb-Ti:RszkRs+Ti-d 

464 IF zae=3 AND ki=zi THEH zae=@:GOSUE 6d4:GOSUE 564 
474 HEXT i 

4S4 23e=73e+1 

494 k1=kZ:kEZ=kZ+4 

Ag GOT 214 

214 PRINT:PRINT'"'Avec le remboursement de"; 

524 PRIHT INTCERS+Ti DÉC MTERS CEE Ms 

239 PRIHT'"'la dette est eteinte, 

54 GÜSUÉ 648: MODE 1 :EHC: 

204 KEM SF Titre du tableau 

568 FRINT'"'Cate Ureration Traite Capital"; 
274 FRIHT" Interet. Fembours, Reste" 

989 PRINT TAES ES "en FF" TAB 3S 2" Produisant" 

594 PRINT THE dE ten FF": TAB SES en FR" TRES 71 5" du en FF 


CR NN EU ECC LUE EN) 


D Ti TO Di Ts Mi M Ti 
DONNE Men 


PRINT TAES35S2"interet" 

FRIHT TAB 3S "en FF" 

PLOT 4,554: DRAU 624,338: FRINT 
FETLFH 

FEM SF Httendre 

LOCATE F,25 

FRIHT'"FraPPez une touche S,%,P" 
X$=INKEYS:IF xbz"" THEH 674 
CLS : RETURH 
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Liste de variables: 


index de comptage 


Il 


année 


j 
j$ = tableau d’entrée pour j 


ki = valeur initiale de la boucle 


k2 = valeur finale de la boucle 


Kb = montant nominal du crédit, soit le capital produisant des 
intérêts 


m = mois 


R 


remboursement en francs 

Rs = reliquat de la dette en francs 

t = remboursement initial en % 

tg = jour 

Ti = extinction de la dette en francs 
zae = variable de comptage 

Zi = intérêt en francs 


Zs 


taux d’intérêt nominal en % 


- 83 - 


Description du programme: 


Lignes 10-70 : 


Lignes 80-170 : 


Titre 


Entrée des valeurs initiales 

L'indication de l’année est traitée comme une 
variable alphanumérique (-chaîne de caractères) de 
façon à pouvoir en ligne 150 ne convertir que les 
deux derniers caractères en une expression 
numérique. Cette méthode un peu compliquée a pour 
effet de n’utiliser que "85" comme année lors de 
la création du tableau si l'entrée était par 
exemple "1985". 


Ligne 180 : On saute au sous-programme "attendre", l’écran est vidé 
et on change le mode écran (80 colonnes) 


Ligne 190 : Saut au sous-programme (ligne 550) pour sortir le titre 
du tableau 


Ligne 200 : Affectation des valeurs initiales aux variables pour le 
premier parcours de la boucle 


Lignes 210-470 


: Constitution d’une boucle de calcul des 


différentes grandeurs et de sortie des résultats 
sous forme de tableau pour une période (=1 an). 
Lors de chaque premier parcours on prend en compte 
l'opération "Paiement" ou "Solde". 

220-250 : Pour les parcours 2 à 5 de chaque 


période (c’est alors que les 
remboursements sont payés), modification 
de la date 


260-270 : Sortie de la date 
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Lignes 480-500 : 


Lignes 510-530 : 


Ligne 540 : Saut 


280-300 : Sortie de l'opération dont ïil s’agit 
(ler parcours de la première période: 
paiement, ler parcours des périodes 
suivantes: solde, parcours 2 à 5 de 
toutes les périodes: remboursement) 

310-350 : Sortie des autres valeurs du tableau 

360-400 : Lors de chaque premier parcours, calcul 
des remboursement, intérêts et 
extinction de la dette (montants 
constants pour chaque période) et sortie 
d’une ligne vide. A noter en ligne 370 
que le remboursement n’est en fait 
calculé que lors du premier parcours de 
la première période. Pour le reste, le 
dernier solde est simplement divisé par 


4. 
430-450 : Lors de chaque dernier parcours, sont 
calculésles remboursement, intérêt, 


capital produisant intérêts et reliquat 
de la dette pour le solde. 

460 : Sortie des résultats pour 3 périodes 
(zae=3), y compris solde (kl=i, premier 
parcours), remise à O0 de l’index de comptage 
i et saut aux sous-programme "attendre" et 
"titre du tableau". 


A la fin du parcours de la boucle pour une 
période, l’index de comptage est augmenté de 1, 
les valeurs initiale et finale de la boucle 
reçoivent de nouvelles valeurs et on saute à la 
ligne 210 (nouveau parcours de la boucle). 


Sortie d’un commentaire concernant le reliquat de 
la dette lorsqu'il ne reste plus de remboursement 


à effectuer. 


au sous-programme "attendre", passage en mode 40 


colonnes et fin du programme 
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Lignes 550-630 : Sous-programme "titre du tableau" 
Le titre est souligné en ligne 620. Le curseur 
graphique est amené avec l'instruction PLOT dans 
l'emplacement voulu et la ligne est dessinée avec 
l'instruction DRAVW. 


Lignes 640-690 : Sous-programme "attendre" 
Le commentaire "Frappez une touche S.V.P." n’est 
sorti que si la création du tableau n’a pas encore 
commencé. 


Résultats du programme: 


Lancez le programme et entrez un montant de crédit nominal de 10000 
F, un intérêt annuel de 7% et un remboursement initial de 3% avec 
versement de l’argent le 30 12 1985. Vous verrez alors que pour un 
versement trimestriel de 225 F, vous devrez verser 88 
remboursements jusqu’au 30 12 07 (donc exactement 22 ans) et qu’il 
faut en outre payer un reliquat de 198.85 F. Vous rembourserez donc 
au total 19998.85. 
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4.6 Le puits à idées 


- mise en place d’un compte comparatif pour comparer les 
offres de crédit (ce sont ici - contrairement au plan de 
remboursement - les paiements effectifs aux échéances 
effectives qui jouent un rôle déterminant). 


- Détermination du montant évalué pour les contrats d’épargne- 
logement. 


- Financement immobilier et modèles de financement de 
promoteurs. 


- Gestion et calcul des coûts. 


- Analyse boursière: analyse de cours et des tendances de la 
bourse. 


- Gestion d’un portefeuille d’actions. 


- et bien d’autres choses. 
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O1 


Textes et impression 


nd 


5.1 Remarque préalable 


Un microordinateur ne sert pas qu’à calculer mais aussi à gérer 
des textes. Cette application de l'informatique est certainement 
connue même de ceux qui ne sont pas employés de bureau. 

Les tâches principales du traitement de texte sont: 


- sauvegarde et archivage de textes 
- sortie répétée de textes 


- modification rapide et à volonté de textes (correction, 
complément, fusion, etc.). 


Si vous voulez vraiment vous adonner sérieusement au traitement de 
texte, nous vous conseillons de vous intéresser au marché des 
logiciels professionnels. Vous serez surpris de voir par exemple 
tout ce que permet de faire TEXTOMAT de DATA BECKER -MICRO 
APPLICATION. Il faut cependant pour cela posséder un lecteur de 
disquette comme moyen de stockage externe. Pour une utilisation 
domestique occasionnelle, vous pouvez cependant vous contenter de 
programmes que vous aurez faits vous-même et d’un lecteur de 
cassette. Un tel programme peut soit viser à imiter les fonctions 
les plus importantes des logiciels de traitement de texte 
professionnels (voir chapitre 5.4) soit être approprié uniquement à 
certaines applications déterminées (voir chapitre 5.3). 


I n’est par ailleurs pas très difficile d’affecter les caractères 
spéciaux français comme par exemple à, ç, é, à ou à à certaines 
touches de votre ordinateur. C’est très important pour un 
traitement de texte. Vous trouverez au chapitre 5.2 un programme 
remplissant cette fonction. 
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On ne peut faire de recommandations générales en ce qui concerne 
les imprimantes. L’imprimante matricielle AMSTRAD NIQ 401 offre 
certainement une belle écriture pour son prix mais quelle que soit 
l'imprimante que vous possédez, vous en trouverez toujours une qui 
ait une plus belle qualité d’impression. Le choix entre une 
imprimante à marguerite et une imprimante matricielle est notamment 
essentiellement un problème de moyens mais l'imprimante à 
marguerite est bien sûr plus appropriée à de véritables 
applications professionnelles. 


Un dernier conseil au sujet du moniteur. Si vous avez un moniteur 
couleur, essayez de trouver avec quelle combinaison de couleurs 
vous pouvez le mieux travailler. Evitez absolument de rechercher 
des couleurs vives. Vous yeux vous remercieront. Pour un travail 
nécessitant une lecture attentive et prolongée de l’écran, le mieux 
est un moniteur monocolore vert. Il convient parfaitement au 
traitement de texte car il ne distrait pas de l’essentiel. 
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.2 Caractères spéciaux français 


Si vous comparez le clavier de votre ordinateur avec celui d’une 
machine à écrire, vous voyez tout de suite la différence dans 
l'emplacement des touches. D’autre part, l'absence des accents 
français est difficilement acceptable pour le traitement de texte. 
Le BASIC AMSTRAD permet heureusement très facilement de définir ces 
caractères spéciaux et de les affecter à des touches déterminées. 
Il vaudrait cependant mieux veiller à ne choisir comme touches que 
celles dont le code ASCII correspond à la valeur du caractère 
spécial dans la table de codes de caractère de l’imprimante. On est 
ainsi sûr qu’un accent à l'écran soit bien imprimé comme accent. 


Le programme présenté ici réalise l'affectation des caractères 
spéciaux aux touches correspondantes. Le maniement de ces touches 
nécessite cependant une phase ‘d’adaptation car les touches 
sélectionnées ne correspondent pas toujours à celles d’une machine 
à écrire (clavier AZERTY). 


La réaffectation des touches se fait avec l'instruction SYMBOL. Il 
faut noter à cet égard que les paramètres de cette instruction qui 
décrivent bit par bit en commençant par le haut la matrice de 8 
points sur 8 du nouveau caractère sont des nombres hexadécimaux. Le 
paramètre C3 a par exemple pour effet que les deux premières et les 
deux dernières colonnes de la ligne concernée reçoivent la couleur 
d'écriture alors que les quatre colonnes du milieu recevront la 
couleur du fond. En effet C3 s'écrit en binaire: 


11000011 


© 
l 


= couleur du fond 
= couleur d'écriture 


en 
[ 
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Pour chacune des huit lignes vous devez entrer un nombre 
hexadécimal correct. Le manuel d’utilisation de votre CPC contient 
une belle table de conversion binaire - hexadécimal. Vous pouvez 
ainsi vous éviter des calculs fastidieux. Le travail de définition 
des caractères est d’autre part considérablement allégé si vous 
vous aidez du jeu de caractères du CPC qui est décrit dans votre 
manuel. Vous trouvez également au même endroit les numéros de 
caractère correspondants (premier paramètre de l'instruction 
SYMBOL). 


Programme: 


14 REM I12 

24 CLS 

34 PRIHT "IIZ - Proaranme de definition des" 

40 FRIHT TAB(7 "caracteres francais £Peciaux 

SG PRINT :PRIHT:FRINT:PRIMT:FRINT: PRINT 

64 FRIHT THECS: "Bering Koual, 1985" 

F4 GOSUB 2:54 

84 PRIHT"'Veuillez actionner lentement l'une" 

99 FRIHT'aPres l'autre les touches suivantes :" 
194 PRINT:PRINT'"'sans SHIFT 5 ®, *%, EC 1": 
119 PRIHT:FRIHT'"'et awes SHIFT 5 14 1, 3" 

124 S''MEOL AFTER 65 

134 REM à accent 9r 
149 SYMEOL 64,484, 84 
159 KEM desre 

164 S'MBOL 31,418,8 
174 FEM © cedille 
15Q SYMEOL 92,404, 44 
199 REM ParaaraFhe 
248 SYMEOL 93,41E,220,838,860,438,418,84F 0, &5 
218 REM e accent 3191 

229 SYMBOL 123,40, 418.830, 8466, X7E 
234 REM nu accent HE 

249 
234 
264 SYMEQL 125,430, 18, BAC 
274 PRINT: PRIHT:PRIHT 

284 PRIMHT"GSi le dessin des accents 
299 PRIMT"'satisfait Pas, il 
394 PRIHT'modifier les instructions SYMBOL" 
318 PRIHT'"corresPondantes." 

329 FRIHT:FRINT:PRIHT 

334 FRIHT"Fin du Frogramme! : EH 

349 REM SP Attendre 

354 LOCATE 7,25 

369 PRINT"FraPPez une touche S.Y,F" 

379 x$S=INKEYS:IF x$="" THEN 374 

369 CLS :RETURH 
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Le programme n'utilise pas de variables 


Description du programme: 


Lignes 10-70: Titre 
Lignes 80-120 : Sortie d’une instruction pour l’utilisateur 


Ligne 130 : Fixation de la zone dans laquelle doivent être définis 
les caractères spéciaux français 


Lignes 140-270 : Définition des caractères spéciaux français et 
réaffectation des touches 


Lignes 280-330 : Sortie d’un commentaire 
Ligne 340 : Fin du programme 


Lignes 350-400 : Sous-programme "attendre" 


Résultats du programme: 


Vous pouvez utiliser ces instructions SYMBOL chaque fois que vous 
avez besoin des caractères spéciaux français. Cela peut se faire 
dans le cours du programme, comme dans notre programme, ou en mode 
direct, en entrant directement ces instructions. 
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5.3 Une lettre d’affaires individualisée 


Vous êtes commerçant et vous possédez un petit magasin joliment 
appelé "Commerce ON VANTOU" 1, rue du hameau à Trifouilly. Il peut 
malheureusement arriver qu’un client "oublie" de régler une 
facture. Il vous faut alors envoyer à ce cher client (que nous 
appellerons Monsieur Avare) une mise en demeure qui pourrait se 
présenter ainsi: 


(voir page suivante) 


LR 


Commerce ONVANTOU 
1, rue du hameau 


99999 Trifouilly 


Richard Avare 
2, rue de la ville 


99999 Trifouilly Trifouilly, le 20.4,.1985 


Objet: Livraison d’un tiroir du 1 4 1985 

Cher Monsieur Avare, 

Vous n’avez pas encore réglé la facture indiquée ci- 
dessus. C’est inadmissible. Si le montant de 147,50 F 


n’est pas viré sur notre compte avant le 30 4 1985, nous 
entamerons une procédure contentieuse. 


ie distinguées 


Es me 
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Si maintenant un autre client se fait également attendre pour le 
règlement d’une facture, il suffira de modifier uniquement les 
parties soulignées de la lettre. 


C’est exactement ainsi que vous pouvez procéder avec votre CPC, une 
imprimante et un programme approprié. Vous trouverez dans les pages 
suivantes le programme correspondant à la lettre commerciale ci- 
dessus. Les parties soulignées de la lettre peuvent être entrées à 
travers une instruction INPUT. Le reste de la lettre est par contre 
définitivement fixé dans le programme. Si le texte de la lettre ne 
vous convient pas (les pratiques commerciales à Paris sont 
différentes de ce qu’elles sont à Trifouilly) vous n'avez qu’à le 
modifier. Vous n'aurez de toute façon à faire ce travail de 
modification qu’une seule fois. Notez cependant que par exemple 
dans notre programme, chaque ligne de texte compte exactement 56 
caractères (y compris les espaces). Cela fait un effet 
professionnel et c’est très simple à programmer avec des espaces 
supplémentaires. 


Vous pouvez ainsi traiter toute votre correspondance commerciale. 
Vous serez surpris de constater combien de sections de texte se 
répètent dans votre correspondance. Et cependant le caractère 
individualisé de vos lettres commerciales est préservé. 
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Programme: 


14 FEM 113 

cg CLS 

34 FRIHT "113 - Frogramme de redaction d'une" 
44 FRINT TAEF"lettre d'affaire individualist 
59 FRIHT TAEC Vi" Hise en demeure" 

69 PRIHT:PEINT:PARINT:FPRINT:FRIMT:PAIHT 

F4 PRINT TABG35 "Bernd Kowal, 1985" 

59 GOSUE 684 

34 FREM caractires fran-ais 2PiCiaux 

SYMEOL AFTER 63 

SYMEOL 64,464, 836,478, 80, PC. CC, à 

SYMEOUL 91,418, 424,424, 815. , 
S'MEOL a A Ne 

S''MEOL : ; ! 
S'MEOL 
S''MEOL 
SYMEOL : 
FEN Entries 





nn Pr 
DOC RE LAC EURE EX EU EX] 


Je GO MU BUT Di 


Hi 

4 MOÜCE & 

G FRIHT'"'Hom du client :" 
G IHPUT "Fr {nor ing 

A INPUT "Horn ATTTE : 








FRIHT:FRIHT'"'Le client est-il un homme ou une femmes" 
INPUT entrez m ou #2 ":a$ 

PRINT:PRINHT'"'Adresse du client:" 

IHPUT'"'Rue et. numiro "ish$ 

IHPLUT'Ville et code Fostal "ice 

FRIHT:IHPUT "Date d'expidition "5;ad$ 
FRIHT:IHPUT'"Obiet "ob 

PRIHT:IHPUT "Montant concerné en FF "5 dm 
FRIHT:PRINT' lusqu'@ quand les Paiements sont-11s" 
IHPUT'"'Pris en compte ";5zd$ 

FEN Sortie 

M CLS: PRINT Sortie sur"; TAB 34 "Entrie" 
PRINT:PRIHT'"'Ecran";TABS 33 "a" 
569 FPRINT:PRIHT"ImPrimante"; TAELS353 "EE" 

A PRIHT:PFRIHT:IHPUT "Yotre choix "ia:CLS 
PRIHT #2:PRIHT #a:PRINT H#a:FRIHT #a 
PRIHT #3, "Commerce CHYAHTOLU" 

4 FRIHT #a, "1, rue du Hameau" 

4 PRIHT #a:FRIHT #a, "99939 Trifouills" 
4 PRINT #3:FRIHT #a:FRIHT #3 

A PRINT #a, ni" "onné 

A FRIHT #3, <h$ 

PRINT #23:FRIHT #a, oP$; 

ÉD 9=57-21-LENC ad$ 

A PRINT #3. TAEA2"Trifouills, le ":ad$ 


A 


© D QE 


4 
5 
Ë 
F 
3 
a 
[x 
1 


0 
r 
DURE: 
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454 PRINT 
434 PRINT 
S9@ PRINT 
519 IF a= 
526 IF 2$ 
539 PRINT 
544 PRINT 
554 PRINT 
S64 PRINT 
574 PRINT 
de Ur 

Sea PRINT 
585 PRINT 
584 PRINT 


#a: PRINT #3:PRIMT #3:FRIHT #3:PRIHT #a 
#2, "Obiet: ";b$ 

#3:FRINT #3 
zG THEH GOSUE 664 
mn" THEH 548 
#3. "Chire Madarne 
#2, "Cher Monsieur 


La 


ini", ":GOTO 55 


CEE . n L 
3 nn ; 4 


g 


#3: PRINT Ha, "Vous n'avez Pas encore riglé ": 
#3, "la facture indiquée ci-" 

#a, "dessus, C'est inadmissible ! Si la somme 
#2, USING UHHHH. H#H#" : dm: 

#4, " F" 

#2, "n'est Pas virée sur notre comPte avant le 
#2, USIHG" “M ri à 

#3,:", nous" 

#2, 'entamerons Une FProcidure contentieuse," 
Ha: PRINT #a:PRINT #2:PRIHT #a:FRIHT #a 
#3,'"Salutations distinauties" 

#2: PRINT #a:FRIHNT #3: PRINT #23: FRIHT #a 


68@:MODE 1:EHC 


670 RE SF Attendre 
654 LOCATE 7,25 


694 FRIHT 


V4g xH=IMNKEYS:IF «x$="" THEH 


Fig CLS:E 


"FraFrez une touche S,V,F" 


76 461 


ETURH 


:07 


Liste de variables: 


a = périphérique de sortie (0 pour l’écran, 8 pour l’imprimante) 
ad$ = date d’expédition de la lettre 

b$ = objet 

dm = somme demandée en francs 

g$ = sexe du client 

nn$ = nom de famille du client 

op$ = localité avec code postal 


q = paramètre calculé pour la fonction TAB pour la sortie de la 
date d’expédition 


sh$ = rue avec numéro 
v$ = prénom du client 


zd$ = date jusqu’à laquelle les paiements ont été pris en compte 
Description du programme: 
Lignes 10-80: Titre 


Lignes 90-170 : Définition des accents français (voir chapitre 
52) 
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Lignes 180-320 : 


Lignes 330-660 : 


Entrée des parties "soulignées" de la lettre. Le 
mode écran est fixé à cet effet à 80 colonnes 
(pour admettre des entrées plus longues). 


Sortie de la lettre complète 

Vous pouvez choisir en lignes 340-370 si la lettre 
doit être sortie sur l’écran ou sur l’imprimante. 
Notez qu’une mauvaise entrée pour a ne serait pas 
“interceptée" par le programme. En ligne 460, le 
paramètre de la fonction TAB est calculé pour la 
sortie en ligne 470 de la date d’expédition, de 
façon à ce que la ligne sortie compte exactement 
56 caractères. Dans le cas d’une sortie à l'écran, 
le déroulement du programme est interrompu en 
ligne 510 (Sous-programme attendre") car la 
lettre compte plus de lignes que l'écran. En 
lignes 520-540, la formule d’adresse (Cher 
Monsieur ou Chère Madame) est sortie en fonction 
de l’entrée "sexe du client". 

La sortie formatée du montant demandé en francs et 
de la date se fait en lignes 580-600. Si vous avez 
affaire à des montants plus élevés, vous devez 
changer le format en tenant compte du fait que la 
ligne correspondante comptera alors plus de 
caractères. Pour la date, un maximum de 10 
caractères a été prévu, ce qui suffit par exemple 
pour une entrée telle que "24 12 1985". 


Ligne 670 : Saut au sous-programme "attendre", modification du mode 
écran et fin du programme 


Lignes 680-730 : 


Sous-programme "attendre" 
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5.4 Traitement de texte 


Comparé à des logiciels de traitement de texte professionnels, il 
est évident que le programme que nous vous proposons dans ce 
chapitre présente des insuffisances. Mais après tout, il a été 
conçu uniquement pour un usage domestique et non pour travailler au 


bureau. 
Ce programme vous permet d’effectuer les tâches suivantes: 
- Entrée de textes (au clavier) 


- Examen de textes (à l’écran) 


- Correction de textes (correction, insertion ou suppression 
de lignes de texte). 


- Chargement de textes (de la cassette ou de la disquette) 

- Sauvegarde de textes (sur cassette ou sur disquette) 

- Impression de textes 
Si vous voulez employer un lecteur de disquette comme moyen de 
stockage externe, vous devez modifier ou insérer les lignes de 


programme suivantes: 


1745 INPUT"Nom du texte ":n$ 
1750 OPENIN n$ 


Aucune autre modification n’est nécessaire. 
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Vous pouvez choisir vous-même le nombre de caractères par ligne 
(jusqu’à 70). Vous pouvez également déterminer librement le nombre 
de lignes par page et la largeur de la marge gauche lors de la 
sortie sur imprimante. Aucune autre indication de format n’est 
employée. Le texte est imprimé exactement comme vous l’entrez et 
comme il apparaît à l’écran. 


Contrairement à ce qui est le cas dans notre programme, le 
formatage, c’est-à-dire la préparation d’un texte pour 
l'impression, se fait dans beaucoup de programmes de traitement de 
texte dans une étape de travail particulière. Le moniteur n’est pas 
en effet en mesure de représenter tout ce que l’imprimante peut 
sortir. D’autre part, dans beaucoup de programmes de traitement de 
texte, on n’a pas à surveiller la longueur d’une ligne de texte. 
Vous pouvez en effet indiquer la longueur de ligne voulue 
simplement avant Ja sortie sur imprimante. Vous pouvez 
naturellement également d’abord faire sortir le texte formaté à 
l'écran. On peut dire en conclusion que les programmes 
professionnels vous offrent, outre une manipulation plus aisée du 
texte, de nombreuses possibilités de sortir sur papier un texte 
déjà entré en mémoire. 


Il en va quelque peu différemment pour le programme que nous vous 
proposons ici. Le nombre de caractères par ligne est également 
limité lors de la sortie sur imprimante mais vous devez vous-même 
veiller lors de l’entrée du texte à ne pas entrer trop de 
caractères par ligne. Le programme dessine simplement une ligne 
verticale à l’écran qui vous indique quand la longueur limite d’une 
ligne est atteinte. C’est toujours le cas lorsque le curseur touche 
cette ligne. Il vous faut alors appuyer sur la touche ENTER avant 
d'écrire la ligne suivante. Pendant l'entrée du texte, un affichage 
vous indique sur quelle ligne et dans quelle page vous vous 
trouvez. Il faut par ailleurs noter dans ce programme que les 
guillemets doivent être remplacés par l’apostrophe pour ne pas 
perdre la suite de la ligne. 


- 102 - 


Un texte traité avec le programme que nous vous proposons peut 
contenir jusqu’à un maximum de 300 lignes de texte (indépendamment 
du découpage en pages). Cela représente environ 6 pages de machine 
à écrire. Si vous modifiez les lignes 180 et 570, vous pouvez même 
entrer un nombre plus important de lignes de texte. Vous devez 
simplement tenir compte de la capacité mémoire de votre ordinateur. 
Vous pouvez à cet effet interrompre le déroulement du programme 
pour contrôler avec la fonction FRE la place mémoire encore libre 
ou bien vous pouvez également intégrer l'interrogation de cette 
fonction dans votre programme pour empêcher une saturation de la 
mémoire. 


Si vous voulez compléter un texte déjà sauvegardé, vous pouvez le 
charger en mémoire et y insérer alors de nouvelles lignes de texte. 
Les indications de format "caractères par ligne" et "lignes par 
page" doivent cependant être conservées inchangées. Seule 
l'indication "lignes par page" peut être encore modifiée lors de la 
sortie sur imprimante. 


Il n’est pas possible de charger un texte à la suite d’un texte 
déjà en mémoire. Le texte en mémoire serait en effet effacé. Par 
contre on peut compléter un texte chargé en mémoire en n’importe 
quel endroit de ce texte. 


Pour le reste, ce programme est largement auto-explicatif. Le mieux 


est que vous l’essayiez directement. Et surtout n’éteignez pas 
votre ordinateur avant d’avoir sauvegardé votre texte. 
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Programme: 


4 FENM Ii4 
A CLS 
fi FRINT "I14 - Froaramme de traitement de texte" 


FEINT:FPRIHT:PRINT:FEIHT:FEINT:FEIHT 
PRINT THÉ GS "Bernd Éowal, 1955" 
GOSUE 2493@ 

FEM 

FREM caractires fran“3is SFiciaux 

REM 


pas 
MA 






e 
EE 
= 
RER A) 
2 
F 


MEL € 
5 “ MECL 


CR 
A 


S'TMEOL 
SYMEOL 





AE en CR URSS HR EN ENRS 


DD VRAIES Oo D Domi 
EUR 


on D © QE 


OPENGUT rdu: : MEMORY HIMENM- 1 : CLOSEQUT 
FEM 






FENM Mer 

F'EM 

FRIHT TAES 15 2"Heuu "PRINT 

A FRIHT TAESSS "Entre": PRINT 

A FRIHT 

FEIHT" 

FRIHT" 

FEIHT" 

FFIHT" 

FPRIHT" sau 

FRIHT" Air Et 

FRIHT'"'Fin du tra ai UM à TRES ra 

PRINT : PRIHT:FARIHT:IHPUT "Votre Eee "ja: CL: 

IF aï1i OR 427 THEH £54 

OH a GOSUE 364,694, 854, 1736, 1834, 1950, 2264 

MODE 1:GOTO &34 

FEM 

FE Entrer textes 

FEM 

IF zz:4 THEH 454 

INPUT "Combien de colonnes Far Liane ":322z:PRINT 

IF zz<i OK zz:F4 THEM dif 

IF z:*4 THEH 474 

A IHPUT"'Combien de liînes Far Fage ":2zs PRINT 
PRIHT:PRINHT"Si vous entrez ‘##° Four une liane, 

FPRIHT'vous mettez fin & l'entrie, ":GOSUE 2494 

GOSUE 2574 

MIHCOM #6,1,F+zz:4,25 





63"S" PRINT 
"8" : PRINT 





Len) 







ñ iñ 





ei 
ssétzs-zs+l'ke=s#zs-zi+r 
IF i=ki TO KZ 
IHT #G. USING " # 
IHT #4, ce Le 
F z=zs THEH z=G:s 
=x+1:az=az+] 
IF az=548 THEH FRIHT:PRIHT"'IL n'u 4 Plus de Flace di 
mible en mimoire!":FETURH 
LÜCATE #1, E+F,L:PRIHT #1, = 
FRIMT #4, LISIHG !" ## Mizi 

“LIT ET az: 

Ê THEH 556 


1 a DRE 


E: 
F 
R 
Fi 


[= 
et 
5 
ae 
6, 
a 
[= 
J 
5 


3 
[a] 
: 
3 
4 
= 
5 
F 
ET 
5 
EL) 


AIDER 





ï En Hi D a Ca Et) nm: 







LUORUX 





‘az=az-1 :MIHCOW #6,1,46, 1.25: RETURH 







4] 

F HT HA, USINE "OO H## MilreÉzetrs; 
ÉIHT #6, tit 

IF le THEH 1e: GOSUE 25 fi 

1 HET 1 GOSUE 2546: MODE 1 

4 MIHCUM #61, 1,4, 1,25 

SGA IHPLUT'Encore uvre Fañe Cons "ia 
14 IF ee THEH FETI 
22 pal 












FRIHT : RRINT: COTE EE 

















FEM 
A RENM Correction de textes 
FET 
FEIHT THE 15: RAR 5e IHT : en INT 
4 PRINT TAES SE 
FEIHT"UTrAa =: "PRINT: FAINT 
à FEIMT" Corrues j 
FEIHT" insertion : TAB 233 24 : PRINT 
PRIHT" suppression": TAES 33 SMS PRINT: PAINT 
1 FRINT'"'Fin de 14 correction"; TABS 33 "4": PRIHT 
FF: IHT : PRIHT: INPUT "Votre choix "oi a:MOCE Z 
IF ail ÜF aïd4 THEH 576 
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369 IF a£4 THEH IHPUT'Quelle Page "x: PRINT 
374 OH a GOTO 394,1154,14r4, 1744 

956 KEM 

938 REM corriger 

144 FEN 

1414 FRIHT'"'Quelle ligne doit" 

1424 IHPFUT'etre modifiée "y 

1454 i1=6x-1234zz+4 


1444 PRIHT:FRINHT'"'La ligne Pricidente :" 

1454 FRIHT téii-15;:PRIHT TAHElzz+1 CHRgc 211: FRIHT 
1466 PRIHT"'La liane & corriger :" 

PRINT t$c 13; :FRIHT TAB“ 22+1 2 CHR E11 2 FRIHT 
FRIHT"'La ligne suivante 
FRIHT ESC i41 2: :PRIHT TAE 


Fe 
CCE 


CU EUR 





+13 CHARGE 211 1: PRIHT 





1 D NI Û 
DCR OUR 


FRIHT'Entre quelles lignes faut-il Placer" 
FRIHT" l'insertion T" 
PEIHT : IHPUT "Hu 


ni 1 


1 
il 
1 
1 
1 
1 
l 
1 
1 


14 LOCATE z2z+1.1F: PRINT CHRSE ZI 2: PRINT 
24 LOCATE 1.:1F:LIME INPUT tg$c io 

34 MOCE 1:GOTO £a 

4 FENM 

SA REM insertion 

c4 FENM 

FA 

3 


a de ligne inférieur "Mini 












NE DE CN DE CEE EURE 


GA zi=suliudets] Ext 

A FRIHT'"'La liane se Prisente angl :" 

G PRINT t$éu15;: PRINT THBézz+1i CHR Z11 

A FRINT: INPUT" Humire de Tige supérieur Mu 


IF 4%-71=1 THEM 1 
PEIHT:PAIHT "Mi 
PRINT" ia LOT 
dE KL | ETE +: 
FRIHT"La l se Frisente ainsi 
FRINT t$6u25; :PAIHT THE 2241 1 CHESE Z110 
PRIHT:PF IHT: PR INT'Combien de lignes faut-il" 
INPUT ins ir i43 


z indiquer deux numéros de" 
"GOT 1174 















D mic 


L 
ALAN EUX 


BP 
mins 


MINE HG, 1, 7+zz, 4,25 

FOR i=41+1 T0 g1+43 

zi=zi+i 

A4 LOCATE #1, 22z<2+7. L:PRINT #1: 
A PRIHT HE, LSIHG " ## "izli 
24 LINE IHPUT téii 
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PRINT: PRINT" Lornmment doit se Présenter la ligne"igi" 


1434 HEËXT 1 
1448 WIHDOM #4, 1.46.,1,25S 
1459 MODE 1:G0T0 SFA 
146à FENM 
14F4 FEM suPPrimer 

14 REM 
FREIHT'Quelles lignes faut-il suFFrimer* 
FEIHT : THPUT de: numéro de ligne "ini 
zisalinizis-i 
FEIHT'"'La liar 
PRINT téiulini:F | 
FRIHT:IHPLT "us qu "6: 
IF 4£èzzil THEH 1554 







ui 1 








= 






D it 


ni 





En 


RARLAELTE RARE 


mr 
AREA ELA ELA 


FRIHT"'plUEs 
PRES DE à 
FRIHT"'La ligne se Prisente ainm£gi 
PRINT CE FF F El CHR 21 1 2 


grand que le Fremier.,. ":GOTO 1564 







=: 
xx 


ATSAT-UNI TRUE 
IF zé1l THEH 
MOCE 1:GOTU : 
1 PEN Fin de La correction 
à MODE 1L:HETLUEH 

4 FEM 

RENM Charger textes 

FE 

QFPEHIH OM" 
IMPUT HS, 27.2s 
FÜR i=i T0 ax 
IMPUT HA LC ii! 





LUE 








EET 

FEN Sauvegarder textes 
A FE 

ESA FRINT "Comment doit s'aPreler le texte" 
IHPUT"'S sauveaarder "Cong: PRINT 
OFEHOUT 1% 

PRIMT #%,22:25:5,2,a7 

FOR i=i T0 ax 

URITE #3, +t#$ci2 
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PREINHT:FEIHT'"'Le deuxiime numiro de ligne doit etre" 


HEZXT i 

CLOSEOLUT 

CL£S : RETUFH 

FEM 

FE imprimer des textes 

FEM 

FEIHT'"'Faut-il modifier le nombre de lignes" 
FRIHT'"'Far Fañe Cosnt "5 

IHPFUT 4% 

IF a$g="n" THEH 2456 

IF a$i"ia" THEH lave 
PRIHT:IHPUT"'Houvelle valeur "izs 
FRIHT : LRPATALS ESA de la mars 
INPUT "Hombre d'espaces "tr 
MICTH zz+1r 

PRIHT : FEIHT'"Faut- il cimPrimer la totaliti" 
IHFUT "du texte ‘| 
IF agz"s" THEH Etdf 
IF ais THEH ZE G 

FÜR izi T[0 az 

FPRIHT #5, THE lr+1 t$cii 

HEXT 

GOTO ZE 

FRIHT:FEINHT"'Euelle Fañe faut-il" 
IHPLIT imprimer. 
ki=x#zs-zst+iik 
FÜR i=ki T0 
PRIHT #5, TAHESlr+15 ti 

HE“T i 

PRINT: PRINT" Faut-il imPrimer une autre Fage 
IHFUT'de texte Cons "ag 

IF a$="o" THEH 2140 

IF agi" THEH ZA 

A CL£S:FETUREH 

FE 

FE Fin du travail 

F'Er 

FRIHT'"'H "avez-vous Pas oublif de sauvegarder" 
FEIHT'"le te A 

1 PRIHT"S c'est le Cas, entrez sine lement" 
4 FRIHT'un ‘oh, Sinon, il suffit d'aFrusger" 
PRIHT'"'aur La touche espace," THPUT a$ 

IF ag="oh" THEH GOSUE 1554 


DD iD ID DD ID OU 


MX 
px 
ee 


Um: 
NN EN ERN ELN ELA ELU ELA ER EUR) 






ii 


1 
2 
4 
L 
À 
Ë 
F 
5 
a 
[ei 
Î 


3 
= 
2 


e auche Ÿ" 








Re ee 
ARRETE 


En 
DAELX 








Or JDA B'iitimi: 


Cao RON EL ELA LOUE LA | 







ù Pen Fes Pa Pen Pa Pan Pa Po Po 5 Pa Pa Pa Pa lo T2 Po lo lo lol mes te 











2544 PRINT :FÉIHT:FRIHT 

2354 FRINT'"'Vous Pouvez maintenant me débrancher, 
2364 FRIHT:FRIHT:FÉIHT THEC& "Au revoir": EH 
£3ra KEM 

2364 REM Sous-Frogramme masque {cran 
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2394 FEM 

2408 MOCE 2 

241 HIHCOW #1,1,54,1,3 

c424 FRIHT #1,TAEzz-2"Fase" 
243€ PRINT #1."Liagne"; 

2444 MIHCOU HE, £4+zz, 9427, 4,25 
2454 FOR izi T0 #5 

2464 PRIHT #2, CHRZIILN:MEXT i 
2474 FETURM 

2484 RENM 

e494 KEM ©F Attendre 

2594 REM 

2519 LOCATE 25 
“Sen FRINHT'FraFrez une touche S.4V,F" 
FE 

#$=IMÉETYS:IF HE UM THEH ES 
CLS : FRETUFH 
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Liste de variables: 


a = réponse au menu 
a$ = chaîne de réponse 


az = nombre de lignes absolu ou numéro de ligne (se rapportant à 
toutes les lignes de texte figurant en mémoire) 


i = index de comptage et numéro de ligne absolu dans la section de 
programme "correction" 


KI 


limite inférieure d’une boucle de programme 


k2 = limite supérieure d’une boucle de programme 


1 = grandeur auxiliaire dans la section de programme "examen du 
texte" 


Ir = largeur de la marge gauche lors de la sortie sur imprimante 
n$ = nom du texte sauvegardé 

s = nombre de pages 

t$(i) = ligne de texte 


x = nombre de pages dans les sections de programme "examen" et 
"correction" 


y = numéro d’une ligne à corriger 


yl = plus petit numéro de ligne dans les sections de programme 
"insertion" et "suppression" 


y2 = plus grand numéro de ligne dans les sections de programme 
"insertion" et "suppression" 
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y3 


nombre de lignes à insérer ou nombre de lignes à supprimer 


z = nombre de lignes d’une page 


zl = nombre de lignes d’une page dans la section de programme 


"correction" 


ZS 


ZZ 


lignes par page 


caractères par ligne 


Description du programme: 


Lignes 10-60 : Titre 


Lignes 70-170 : Définition des caractères spéciaux français 


Ligne 180 : Réservation de place mémoire pour le texte 


Ligne 190 : Cette ligne de programme interdit une longue 


réorganisation de la mémoire pour les fichiers de texte 
encore à ouvrir. Cette ligne peut cependant également 
être négligée car le fait de lancer à nouveau le 
programme provoque un message d’erreur en ligne 100. Il 
est cependant également possible de supprimer les 
lignes 70 à 170 avec l'instruction DELETE avant de 
lancer le programme une seconde fois ou de transformer 
la ligne 100 en instruction REM. 


Lignes 200-350 : Menu avec saut aux sous-programmes correspondants 


Ligne 360 : Comme le mode écran est souvent modifié dans les sous- 


programmes, c’est ce qui est fait ici aussi pour 
garantir une sortie toujours identique du menu 


Lignes 370-630 : Sous-programme "entrée du texte" 


370-390 : commentaire 
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400-460 : affectation de valeurs aux paramètres Zz 
et zs si cela n’a pas encore été fait et 
sortie d’une explication pour terminer 
l'entrée 

470 : Saut au sous-programme "masque écran" 

480 : Définition d’une zone de l’écran réservée à 
l'entrée de texte (la limite droite de la 
fenêtre dépend du paramètre "caractères par 
ligne") 

490 : La variable s est fixée sur 1 lors de 
l'entrée de la toute première ligne (s était 
auparavant égal à 0) 

500-540 : Sortie du texte d’une page partiellement 

écrite 

550 : Si une page est pleine (alors z=zs) on passe 
à une autre page (s=s+1) et la variable z 
est fixée égale à 0 

560 : Les variables z et az sont augmentées de 1 
avant toute entrée de ligne 

570 : Sortie d’un commentaire et retour au menu si 
300 lignes de texte figurent dans la mémoire 
programme 

580-590 : Sortie du nombre de pages et du numéro 
de ligne (par rapport à une page) 

600 : Entrée d’une ligne de texte. L’index d’une 
ligne de texte est toujours le numéro de 
ligne absolu az. 

610-630 : Les variables z et az sont diminuées de 
| lors de l'entrée du critère 
d'interruption (le critère 
d'interruption ne fait pas en effet 
partie du texte proprement dit), la zone 
écran est redéfinie et on quitte ce 
sous-programme. Par ailleurs on saute à 
la ligne 550 pour la poursuite de 
l'entrée du texte. 


Lignes 640-830 : Sous-programme "examen du texte" 
640-660 : Commentaire 
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670-680 : Entrée d’un nombre de pages 

690-700 : La variable auxiliaire 1 est fixée à O, 
on saute au sous-programme "masque 
écran" et la fenêtre de texte est 
redéfinie 

710 : Sortie du nombre de pages 

720 : Les numéros de ligne (absolus) des début et 

fin d’une page sont déterminés 

730-780 : Sortie du texte. Après sortie de 22 
lignes (voir variable auxiliaire 1) on 
saute au sous-programme "attendre". On 
renonce ici au message "Frappez une 
touche S.V.P.". 

790-830 : La fenêtre de texte est redéfinie et on 
peut examiner d’autres pages. Par 
ailleurs, retour du sous-programme. 


Lignes 840-1710 : Sous-programme "correction du texte" 
840-860 : Commentaire 
870-970 : Menu et saut correspondant ainsi que 
demande d’un nombre de pages 
980-1130 : Section de programme "correction" 
Un numéro de ligne est réclamé (lignes 
1010-1020), le numéro de ligne absolu 
correspondant est calculé (1030), la 
ligne à corriger est sortie avec les 
lignes voisines (1040-1090) puis 
corrigée (1100-1120). L'écran est 
. enfin vidé et on retourne au menu. 
1140-1450 :Section de programme "insertion" 
Les numéros de ligne sont réclamés, 
les nombres caractéristiques absolus 
sont calculés et les lignes de texte 
sont sorties (1170-1290). 
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Une valeur est alors entrée pour le 
nombre de lignes à insérer (1300- 
1310), les variables z et az sont 
rectifiées (1320-1330, en tenant 
compte en ligne 1330 du fait que les 
lignes supplémentaires nécessitent 
peut-être une nouvelle page), les 
indices des lignes de texte existantes 
sont  rectifiés (1340-1360) et les 
nouvelles lignes de texte peuvent être 
insérées grâce à la définition de la 
fenêtre écran et au sous-programme 
"masque écran" (1360-1440). On revient 
ensuite au menu (1450). 


1460-1690 :Section de programme "suppression" 


Les numéros de ligne sont réclamés, 
convertis et les lignes 
correspondantes sont sorties (1490- 
1600). On calcule ensuite (1630), 
après une sortie de commentaire (1610) 
le nombre de lignes à supprimer (1640- 
1660). Les variables z et az sont 
alors à nouveau calculées (1670) en 
tenant compte ici aussi d’un 
changement éventuel du nombre de pages 
(1680). Enfin, retour au menu (1690). 


1700-1710 :Fin des corrections: vidage de l’écran 


Lignes 1720-1810 : 


et retour du sous-programme 


Sous-programme "chargement d’un texte" 

Le chargement s'effectue par étapes de 
travail différentes selon qu'il s’agit de 
variables numériques ou de variables de 
texte. Pour le travail avec la disquette, la 
ligne 1750 doit être modifiée car il faut 
alors fournir un nom de fichier concret. 


2 DTA 


Lignes 1820-1930 : 


Lignes 1940-2240 : 


Lignes 2250-2360 : 


Sous-programme "sauvegarde de textes" 

La sauvegarde s’effectue exactement comme le 
chargement. Vous pouvez choisir librement le 
nom du texte à sauvegarder. Il faut noter 
cependant qu’on travaille ici en ligne 1900 
non pas avec l'instruction PRINT mais avec 
l'instruction WRITE, c’est-à-dire que les 
lignes de texte sont sauvegardées entre 
guillemets pour empêcher par exemple que les 
virgules ne conduisent à des coupures de 
phrase indésirables lors de la sortie. 


Sous-programme "Impression du texte" 

Après quelques indications de format (1970- 
2040), le nombre de caractères par ligne est 
limité (2050) et le texte est imprimé en 
totalité ou page par page. La ligne 2160 est 
identique à la ligne 720. 


Dans cette section de programme peuvent 
encore être ajoutées des instructions 
supplémentaires pour la commande de 
l'imprimante (menu d'impression). 
L’instruction TAB pose notamment des 
problèmes pour les textes importants. Il 
vaut mieux alors utiliser des instructions 
spécifiques pour l'imprimante telles que 
CHRS$(27);'l,CHRS$(n);(imprimanteEpson), à 
"n" indique l’emplacement en colonnes de la 
sortie. 


Sous-programme "fin du travail" 
Si vous avez oublié de sauvegarder votre 
texte, vous pouvez encore le faire ici. 
Sinon, le programme est terminé. 
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Lignes 2370-2470 : 


Lignes 2480-2550 : 


Sous-programme “masque écran" 

Le masque est créé en définissant deux 
fenêtres écran. 

La première fenêtre (définie en ligne 2410) 
sert à la sortie des nombres de lignes et de 
pages actuels. La limite d’une ligne est 
dessinée (2450-2460) dans la seconde fenêtre 
(définie en ligne 2440). La définition des 
fenêtres de texte présente l’avantage de 
conserver le "masque" même si les lignes de 
texte disparaissent de l’écran (zone écran 
numéro 0). 


Sous-programme "attendre" 
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un 


n 


5 Le puits à idées 


| 


- Voeux d’anniversaire 
- Invitation à une soirée 


- Lettres standard et lettres commerciales (factures, rappels, 
etc.). 


- Candidatures (Lettre et curriculum vitae) 

- Lettres publicitaires personnalisées 

- Documents 

- Sauvegarde et impression d’adresses 

- Impression d’étiquettes informatiques autocollantes 
- Présentation professionnelle d’exposés et de thèses 


- et bien d’autres choses 
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6. Economie domestique et santé 


6.1 Remarque préalable 


Disons-le tout de suite: nous ne présentons pas dans ce chapitre de 
programme de gestion de comptabilité familiale. Un budget 
domestique ne se gère de toute façon pas comme une PME. 


Nous allons plutôt vous donner une aide technique en programmation 
pour vous permettre de conserver ou d’essayer de conserver le 
contrôle de tous les coûts qui grèvent votre gestion domestique. 


Nous traiterons en outre dans ce chapitre de la santé. Il y a de 
nombreuses possibilités d’utiliser votre CPC dans le domaine de la 
santé. Pensez par exemple aux plans de jogging ou de régime. Nous 
nous limiterons cependant à un programme de calculateur de 
calories. Ce programme est très pratique car il peut par exemple 
être converti sans problème pour les diabétiques en calculateur 
d'unités de pain. On peut bien sûr l'utiliser également pour 
d’autres valeurs nutritives. 
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6.2 Un budget domestique rationnel 


Plus vous employez votre argent de façon rationnelle et plus vous 
pouvez vous permettre de choses. Cette opinion très répandue est 
certainement fondée. Mais que veut dire rationnel? Pour le 
consommateur, et nous sommes tous des consommateurs, il est souvent 
à peine possible de juger de la qualité d’un produit. D’autre part 
les prix bougent sans cesse dans notre système économique. Il n’est 
donc pas si simple d’avoir un comportement rationnel. 


Il est donc peut-être judicieux de se demander pour quoi est 
dépensé l’argent du ménage. Si vous ne vous êtes jamais encore posé 
cette question, vous risquez d’être fort étonné une fois que vous 
découvrirez comment vos dépenses se répartissent entre les 
différentes catégories que sont les vêtements, l’alimentation, les 
voyages, etc. Un tel contrôle de vos sorties d’argent comprend bien 
sûr une grande masse d’informations. C’est pourquoi l’emploi d’un 
CPC peut être fort utile pour la gestion de ces données. 


Le programme suivant se charge de cette tâche en offrant les 
fonctions suivantes: 


- Entré de sorties d'argent (avec les variables "nom 
marchandise"), "montant francs", "catégorie" et "date"). 


- Constitution de catégories (jusqu’à 10 catégories peuvent 
être constituées). 


- Pour les sorties d’argent et les catégories: 
- lecture 
- sauvegarde 


- examen (sous forme de tableau) 
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- calcul (les montants en francs par catégorie sont sortis 
pour n’importe quelle période. La représentation de la 
répartition en pourcentage des différentes catégories se 
fait sous la forme d’un histogramme.) 


- Fin du travail 


Le programme ne gère donc pas seulement les différentes 
informations mais il prend également en charge la tâche importante 
qui consiste à effectuer des calculs. Vous pouvez ainsi constater 
en fin de mois ou en fin d’année combien vous avez dépensé d’argent 
pour chaque catégorie de dépenses. 


Comme vous ne pouvez constituer que 10 catégories (un plus grand 
nombre de catégories nuirait à la clarté du tableau), il est 
recommandé de créer une catégorie "divers" pour éviter des 
problèmes insolubles de classement. Vous devez effectuer une 
lecture (chargement à partir de la cassette ou de la disquette) 
AVANT d'entrer de nouvelles données car sinon les informations que 
vous avez entrées avant le chargement seront effacées. 


Pour le travail avec la disquette, il convient de modifier la 
routine de lecture puisqu'il faut absolument fournir un nom de 
fichier. Cela peut se présenter ainsi: 


795 INPUT"Nom du fichier "n$ 
800 OPENIN n$ 


Il y a place en tout dans le programme pour un maximum de 1000 
entrées. Vous pouvez bien sûr réhausser cette limite (lignes 80-90 
mais attention à la capacité mémoire de votre ordinateur) mais il 
serait certainement plus judicieux d’établir un bilan final pour 
chaque mois ou chaque année. 
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Pour le reste, le programme est largement auto-explicatif. Nous 
avons renoncé après la sortie de l’histogramme au message "Frappez 
une touche S.V.P" car la place disponible sur l’écran est 
intégralement employée pour le graphique et il s'agissait d'éviter 
un glissement de l’écran vers le haut. 
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Programme: 


14 
24 
34 
45 


AE 


à 


D Dm 


es 


Ne mom EONeS 






Fa Pan Pas Pi Pan Fo Pa Po me ee ee a te De et ee ee LD EC 1 CA 


REM 115 
CLS 


FRIHT "115 - Proaramme de controle 
PRIHT TAES?7"de vos depenses" 
PRINT: FPRIHT:FRINT:FRINT:FEIHT:FEIHT 
PRINT TAC 35 'Gernd Écual, 1955" 


GOSUE 2AÈE 


CIM bg 1696 0%, drac 14648 3,40 1466 
CIM tac 14445, mot 1400, jat 10G@), ja$c 148) 


FEM 


FE Menu 


FEM 


PRINT TAEËS 17 2"Menn": PRIHT:PRIHT 
PRINT TAEC33 "Entree!":PRTHT 


FRIHT'"'Entrer 
PRIHT "Creer. cc 


PRINTY € 
PRINT" 


REF 
FEM 


GSUE 


PRIHT 
HEXT à 


FRIHT 
FRIHT 
FRIHT 
FRIHT 
FRIHT 


A FRIMT 
A FRIHT 





FRÉIHT 
FRIHT 
IHFUT 


OH | a  GoT6 


MIHCO #2, 










FE Entrer les depenses 


ACÏF East THEH SF 
A PRINT 'M'ous devez d'abord creer des cateïori 





SAS: GOTA ÊZE 
1, 46, 1,25 
#2, "Categories": PRIHT #E 





FOR i=i TO ka 
FRIHT #21". "iEgCi 


MIHCOM #1:1,:19,1,25 
M3=293+1 


."L'entres 3'acheve" 
"ai vous entrez" 
un E Comme nom" 
"de marchandise": FRTHT#1 


+ ,veuillez entrer" 
"le informations 
F a, ‘ante 


SEMI PRINT #1: PRINT #1 
FEU :FRTIHT #i 








."Hom de mar-chandis &' 
ES 32: PFRIHT #1 
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GG IF wub$éaaï="G" THEH aa=aa-1:CLS:GOTO 114 

A4 FÉIHT #1. "Montant en FF" 

A IHPUT #1:dmc PRÉIHT #1 

4 PRIHT #1.'"Cateaorie" 

A IHPUT #1,"Hr, "GECaau:PRIHT #1 

G IF kcaaït1 OF kCgaïika THEH 524 

A PRINT #1.'"Date" 

4 IHPUT #1,"dour - "itaé gai 

SFr INPUT #1.:"Mois à MO Ga 1 

G IHPFUT #1, "Annee ni ias 94 ! 

G  jaÿé aa RIGHTS jade ga, Shi ial ga teWALE jade Ga 1 

A CLS #1:GOTO 564 

H FEM 

A KEN Creer des categories 

FEM 

4 IF kazt THEH 634 

A FRINT'Les categories suivantes existent deiai" 

FRINT:FOR izi TO ka 

PRIHT "categorie!" si; "it kgé 1 

HET j1:FRINT:FRIHT 

PRINT 'Mous Pouvez creer 14 cateaorlies mas dun, ! 

A4 PRINT'Entrez un  &i vous ne vou Flus 
à FRINT"'creer de mouvelle categorie, PRINT 
; re 








1m Im! 



















BUITO 114 


FE Charaer depenses et categories 
FE 

CFEHIH "" 

IHPUT #94, aka 

FOR i=i T0 Sa 

IHPLIT #9, bib à à 

INPUT #9, dm à 2, ki 1 0 RO À D moe it dal 1 1 

HEAT 

FOR ji=1i TO Ka 

IHPUT #9. HSE i 2 

HEZAT i 

CLOSEIH 

CLS: GOTO 114 

FEM 

FE Sauvegarder dePenses et categories 

FE 

FRIHT"'Sous Quel nom les informations doivent-" 
INPUT "ee Îles Poe sauvegardess "né 

OFEHOUT 1% 


fi 
G 
a 
Gi 


EE CR CRE LOUE LEE LE LA EE 
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RIHT #3.:923.ka 
OF 1=1 TO Qa 
RIHT #S mb 
PRINT #9, drié 15, k€ i 2, tai i emo it, jal it 
HEAT 
4 FOR iz1i T0 Ex 
4 PRINT #3%E$ii 
HEXT i 
CLOSENLT 
SA CLS: GOTO 116 
"A PEN 
; FE examiner dépenses et categories 
FE 
44 MODE Z'af=l heef 
1 FRIHT'Ha d'entre Hom de marchandise "5 
24 FRIHT "Montant FF Cateaorie Gate" 
34 FRIHT:FOR izaf TO Ga 
4 FRIHT USING " HHHHH "iii 
4 PÉIHT USING " “ M ME 1 5 
SX FRIHT USING " HAS, LUS 
"A FEIHT LSIHG " MiESgCKC 1125 
SA FRIHT USING "#4, " ;tgC id; fine À à 
4 PRIHT LSIHG "Hi iacii 
4 IF ish THEH Heh+ffiafsaf+26: GOSUE 26866: GOTO 1114 
HET ji. 
GOSUE SA: NMOCE 1:GOT0 114 
FE 
ti RENM Caliuls 
FE 
FRIHT'Venillez entrer la Feriode Aus doivent" 
PEINT "concerner Les calculs, M FEIHT 
FEIHT"' de US TAES LE "a UE FPRINT 
FEIHT: PRINT" Jaures TAB 18 2 our?s PRTHT 
FRIHT "Mods" TAES LE "Mois" PETHT 
PRIT" Annee" : TAES 16 "Honee" 
LOCATE F,F:IMPUT at 
LOCATE F,:9:IHPUT am 
LOCATE F.11:IHPUT 234$ 
LOICATE Das at 
LOCATE 4; 3:IHPUT em 
LOCATE 54, 11: IHFUT eja$ 
241a$=FIGHT# aia$,h:aia= "AL aia$ 
eiab=F FIGHT eiag. rire MALE ei1a$ 2 
FRIHT:FPRINT:FEIHT TASSE "le calcule !" 
au=G: FOR iz1 T0 Ka. 
EC EM HEXT i 
A FOR i=1 T[O Ga 
IF jafitéaia OR jatiiteia THEH 151A 
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145 CIF taticat OR taciiset THEH 1516 

1439 kEzsik 1 tisksCkE à 1 +dme i 

1560 de oo. 

1516 tt 

1524 CLS TPRNTrOiNS cette Feriode, Lion avez dePense 
1534 FPRIHT"'au total"; INTE sut 1 A+, 51 "FE." 
1548 FEIHT:FEIHT 

1554 FEIHT'PFour les differentes categories, cela" 
1569 PRINT "donne l'imañe suivante :':PRIHT 

1574 FEIHT"Ho de la Horn de 1a"3 TABLES: 

1564 FFINT"Cateaurie Categorie": PRIHT 

1594 FOR i=i TO ka 

1644 FRINT USING ARE ES 

1614 FRIMT LSIHG " “Mi KE i 5 
1626 z=INTCkSG i V1 0G4G. 50e ‘106 

1634 FRINT TAEL SA LSIMNG UAHHHAHE. HHUST 

1644 HEËT :i 

1654 GOSUE 2454 

1664 PRINT"Eerr esentation GraFhiîue de la" 

164 FRINT'"'repartition en Fourcentages arrondis" 
1684 FFIHT"des differentes cateñories de dePense:" 
163€ pet 

1644 FOR i=1 TO ka 

1F14 poiisksé 1 2#10f4-eu 

1F24 IF PoiïéPm THEM PmzFi ii 

1754 HEËT i 

174f FOR izi TO ka 

LPS PRE FE i #1864-F rm 

1764 HEËT 

1764 PLOT 1F7, 17: CRAN 1, HT 

1784 FLOT 1F,1F:DFAU SEA 17 

1734 LOCATE 145: PRINT" 

1858 LOCATE : 24,25: FRIHT'"Cates, " 

1514 i=f 

1524 FOR i=3 TO ka#S STEF 3 

8354 i=i+1 

1548 LOCATE i:Z2%:PRIHT à 

1854 =ROUNCE LESÆPRE 11 460 

1564 FOR 1=24 TO Zd-x STEP -1 

1874 LOCATE i+1,L'PRIHT CHARS 1435 

1584 MEXT 1 

12424 LOCATE i,23-x:PRIHT USIHG "##"i Foi 

1944 HEAT i 


IF jas 
IF mo 
IF mac ii 


aia AH jaéiifeia THEH 1454 
am OF maiiïrem THEH 1514 


ar AND moi jiiem THEH 1496 








































GOSUE 2144:G0T0 1164 


A FEM 
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G FRE Fin du Froaranme 
a FEM 

A FPRIHT'"'Etez-vous sur de bien avoir sauvegarde" 
A FRINHT'"'les informations comme il convient T" 

A PRIHT"Si ce n'est Pas le cas, entrez" 

G FRIHT'"'simr lement un ‘oh sinon, la touche 
[e) 

[e 

[e 

f 


FRIHT'espace suffit," 

IHPUT 3% 

IF 3$="ch" THEH CLS :GOTO 326 

PEIHT:PFRIHT:FAIHT" Au revoir" 
PRINHT:FEINT"'Vous Pouvez maintenant me debrancher" 
EHC: 

FEM 

FEN SF Attendre 


D 0 0 0 0 WW D 0 











1H oo mme 


1 
1 LU Dit 
Aa PRINT"'Frarhez une touche 5,4. P" 
144 x$S=IHEENS:IF x$="" THEH 216 
114 CLS :FETUEH 


Fo Pa Pa Po Pa Fe 
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Liste de variables: 


= réponse au menu 


a$ = chaîne de réponse dans la section de programme "fin du 
travail" 


af = valeur initiale de la boucle 
aja = indication de l’année (début) 
aja$ = tableau d’entrée pour aja 
am = indication du mois (début) 
at = indication du jour (début) 
dm (i) = montant en francs 

eja = indication de l’année (fin) 
eja$ = tableau d’entrée pour eja 
em = indication du mois (fin) 

et = indication du jour (fin) 

ga = nombre de sorties d’argent 
h = variable auxiliaire 

i = index de comptage 

j = index 

ja(i) = année de la sortie d’argent 


ja$(i) = tableau d’entrée pour ja(i) 
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k(i) = numéro de catégorie pour une sortie d’argent 
k$(i) = désignation de la catégorie 
ka = nombre de catégories définies 


ks(i) = somme des sorties d’argent pour une catégorie donnée dans 
une période donnée 


L] 
1 = valeur initiale de la boucle de dessin de l’histogramme 
mo(i) = mois de la sortie d’argent 
n$ = nom des informations à sauvegarder 


p(i) = pourcentage des sorties d’argent par catégorie par rapport à 
l’ensemble des sorties d’argent 


pm = valeur maximale par rapport à la variable p(i) 


pp(i) = pourcentage des sorties d'argent par catégorie par rapport 
à la valeur maximale pm 


su = somme des sorties d’argent pour une période donnée 
tg(i) = jour de la sortie d’argent 
wb$(i) = désignation de la marchandise 


x = variable auxiliaire pour déterminer la valeur finale de la 
boucle de dessin des histogrammes 


z = valeur arrondie à deux décimales après la virgule pour la 
variable ks 
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Description du programme: 


Lignes 10-70 : 
Lignes 80-90 : 
Lignes 100-250 : 


Lignes 260-600 : 


Lignes 610-760 : 


Titre 

Réservation de place mémoire 

Menu et branchement en conséquence 
Entrée des sorties d’argent 


Dans cette section, deux fenêtres écran sont 
définies. Alors que les entrées se font dans la 
première fenêtre (zone gauche de l'écran, définie 
en ligne 370), les catégories existantes sont 
sorties dans la seconde fenêtre (zone droite de 
l'écran, définie en ligne 320). L'utilisateur du 
programme a ainsi toujours sous les yeux les 
différentes catégories existantes. Une fois 
l'entrée terminée, on ne vide en ligne 600 que la 
première fenêtre. Si aucune catégorie n’a encore 
été définie (voir lignes 290-310) un commentaire 
est sorti et on saute à la section de programme 
"Constitution de catégories". L'entrée d’un O0 pour 
la variable "désignation de la marchandise" a pour 
effet un retour au menu (ligne 490). Le tableau 
d’entrée pour la variable ja est une chaîne ce qui 
permet en ligne 590 de ne retenir dans le tableau 
ja(i) que les deux derniers chiffres de l’année 
(par exemple 85) si vous entrez le nom de l’année 
avec le siècle (par exemple 1985). 


Constitution des catégories 


Si des catégories ont déjà été définies, celles-ci 
sont sorties (lignes 640-680). On peut alors 
définir des catégories. Une fois que 10 catégories 
ont été créées ou qu’un 0 a été entré, on retourne 
au menu (voir lignes 730 et 750). 
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Lignes 770-900 : Lecture des sorties d’argent et catégories 
sauvegardées 


Lignes 910-1060 : Sauvegarde des sorties d’argent et catégories 


Lors de la lecture ou de la sauvegarde de 
variables alphanumériques, il faut noter que cela 
se produit chaque fois avec une instruction INPUT 
ou PRINT particulière (voir lignes 830-840 ou 
lignes 990-1000). 


Lignes 1070-1220 :Examen des sorties d’argent et catégories 


Le mode écran est fixé à cet effet sur 80 
colonnes en ligne 1100. Une sortie formatée sous 
forme de tableau est alors réalisée à l’aide de 
l'instruction PRINT USING. Les variables af eth 
servent à limiter la sortie à 20 lignes de 
tableau à la fois. Avant le retour au menu, on 
revient en mode 40 colonnes (ligne 1220). 


Lignes 1230-1910 :Calculs 


1260-1390 :Entrée de la période que doivent 
concerner les calculs. Le texte 
d'entrée est d’abord sorti, puis les 
instructions INPUT sont positionnées 
en conséquence. Les indications 
d’année sont entrées comme chaînes 
pour les mêmes raisons qu’en ligne 
590. 

1400 : Commentaire 

1410-1420 :Les variables à calculer su et ks(i) 
sont fixées sur la valeur initiale 
0. 
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1430-1510 :Si une sortie d’argent se situe dans 
la période indiquée, les variables 
su et ks(i) sont augmentées du 
montant en francs correspondant. La 
comparaison des indications d’année, 
mois et jour pour une sortie 
d’argent avec la période indiquée ne 
fonctionne pour ainsi dire que pour 
notre siècle puisque le siècle n’est 
pas pris en compte dans l’indication 
de l’année. L’année 2005 sera par 
exemple traitée exactement comme 
l'année 1905. 

1520-1650 :Sortie formatée des montants en 
francs (par catégorie et montant 
global) arrondis à deux décimales. 

1660-1680 :Titre pour la représentation 
graphique de la répartition en 
pourcentage des différentes 
catégories de sorties d’argent. 

1690 : La variable pm est fixée à O. 

1700-1730 :Calcul des pourcentages des sorties 
d'argent par catégorie par rapport 
au total des sorties et 
détermination du pourcentage 
maximum pm. 

1740-1760 :Calcul des pourcentages des sorties 
par catégorie par rapport à la 
valeur maximale de pourcentage pm. 
Cela sert à optimiser l’utilisation 
de la place disponible sur l'écran 
(voir lignes 1850-1880). 

1770-1780 :Dessin d’axes de coordonnées. Avant 
que les lignes ne soient dessinées 
avec l’instruction DRAW, le curseur 
graphique est chaque fois placé sur 
l'origine des axes avec 
l'instruction PLOT. 
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1790-1800 :Ecriture des axes de coordonnées 

1810 : La variable d’index j est fixée sur O. 

1820-1900 :Ecriture de l’axe des x dans cette 
boucle et dessin des histogrammes. 
La variable i sert au positionnement 
horizontal du curseur alors que la 
variable j identifie les valeurs en 
pourcentage pp(i) des différentes 
catégories. La variable x atteint 
son maximum avec la plus grande 
valeur en pourcentage, de sorte que 
les 18 lignes disponibles pour le 
dessin des histogrammes (lignes 
1860-1880) sont utilisées. Pour des 
valeurs pp(i) plus petites, la 
valeur finale de la boucle est 
réduite en proportion (ligne 1860) 
de sorte que des histogrammes plus 
courts sont alors dessinés. En ligne 
1890, les pourcentages de chaque 
catégorie sont sortis directement au 
dessus de l’histogramme 
correspondant. Comme il s’agit là de 
valeur arrondies, il se peut que la 
somme des pourcentages indiqués ne 
soit pas égale à 100. 

1910 : Fin de cette section de programme 


Lignes 1920-2040 :Fin du programme 
On peut encore, dans cette section de programme, 
sauvegarder les données entrées si on a oublié 


de le faire. 


Lignes 2050-2120 :Sous-programme "attendre" 
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6.3 Un calculateur électronique de calories 


Tous ceux qui ont déjà fait un régime savent bien qu’il n’est pas 
si facile de calculer sa ration quotidienne de calories. Les 
indications fournies dans les tableaux de calories se rapportent en 
effet en général à une quantité déterminée en grammes ou en litres. 


Vous vous trouvez par exemple devant le problème de règle de trois 
suivant: 


une bouteille de bière (de 0.5 litres) contient 210 
kilocalories, combien de kilocalories x contiendra un verre 
(0.2 litres) ? 


Vous devez poser une équation simple pour résoudre ce problème de 
calcul: 


210 x 


0.5 02 
x = 0.2 * 210/0.5 = 84 


Si vous voulez effectuer ce calcul pour chaque aliment que vous 
prenez quotidiennement, vous aurez beaucoup de travail. Il serait 
au minimum conseillé de se munir d’une calculatrice de poche. Mais 
vous pouvez encore gagner beaucoup plus de temps pour ces calculs 
si vous utilisez votre CPC avec un programme approprié. 


Vous n’aurez plus en effet à faire le travail qu’une fois pour 


toutes en entrant dans le programme tous les aliments que vous 
prenez régulièrement. 
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L'entrée se fait avec l’instruction DATA. Chaque instruction DATA 
doit avoir la structure suivante: 


DATA <aliment, unité de mesure, quantité d’unités de mesure à 
laquelle se rapporte l’indication des calories, indication des 
calories> 


par exemple: 
DATA <petit pain, pièces (de 40 grammes), 1, 111> 


en d’autres termes: 1 petit pain (de 40 grammes) contient 111 
kilocalories. 


Dans le programme que nous vous présentons, nous avons écrit 15 
lignes DATA à titre d'exemple. Vous pouvez augmenter ou modifier à 
votre guise cette partie du programme. Il vous faut, le cas 
échéant, modifier également la valeur de la variable k en ligne 100 
car seuls k instructions DATA seront lues. 

Lorsque vous utilisez le programme, vous n’avez à entrer pour le 
calcul de calories que l’aliment et un nombre se rapportant à la 
quantité, par exemple: 


Aliment? Petit pain 
Combien de pièces (de 40 grammes) ? 2.5 


Vous obtenez alors comme résultat: 
Cela fait 277.5 kilocalories. 


Les différents résultats sont naturellement additionnés de sorte 
que vous pourriez avoir pour la ration alimentaire d’un jour: 


Cela fait au total 2428.5 kilocalories. 
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Faites attention lors de l’entrée de l'aliment à bien respecter 
l'orthographe employée en DATA, sinon le message: 


Il n’y a pas d’informations 
concernant l’aliment indiqué 


apparaîtra à l’écran. 
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Programme: 


14 REM 116 

24 CLS 

54 PRINT "I16 - Froaramme de calcul" 
44 FRIHT TAESFi"de calories" 


54 FRINT:FRIHT:FRINMT:FPRINT:PRIHT:FPEINMT 

64 FRINT TAËS 9% "Bernd Éoual, 1985" 

FA GOSUE 1426 

SA REM E correspond au nombre d'aliments 
A4 FEM entres 


k=15 

CIM n$iEk mike amik M kack 
C'ATA beurre, Sramm Es 5 
CATA oeuf ,Fieice 4 
CATA bañnane,F iec CE Le é 

CATA Petit PFain.Fieces ésoit 48 grammes % 1: iii 
CATA anauille. grammes, 106, 249 

CATA frites, 3rammes, 144,538 

DATA Cantal LA 1, € 










D LE OÙ =) Qi LA Le Lo PO ee D nn mi 
CRAN ERA NA EN ELA ELA ET ELA EN) 


Die bé it jé bé dt et bot be jt 





FA CATA 
ca CATH 
214 CATA 4 Qrarmmes ), 1,5 
9 
C24 CATA biere forte, litres. 4,.2,132 
230 DATA cuissot de chevreuil, arammes, 144,146 
cf CATA ail, Sousse C5 arammes 1.7 
54 CATA confiture.Petites cuilleres Lscit S Grammes à, 1: 
CATA choux de Bruxelles, @rammes, 144,52 


FÜR ii TO k 

FERAC bé à mi, ame it Eat io 

MEXT 

PRIHT TAES 16 "Menu": PRIHT:FRINT:PARIHT 

FRIHT TAE“ Entrée!" :PRIHT:FEIHT 

FRIHT'éesaminer toutes les donnees" TAES SE LUC PRINT 
FRIHT"'calculer les calories"; TABS SE MES PRINT 
PRIHT"Fin du travail"; TAES 36 2"S "0 PRIHT 

FRTHT FEIHT:IHPUT "otre choisi 
IF aë1 OF 253 THEH CLS: GOTO 
CLS: OH a GOT 1114,12664, 14764 
FOR iz1 TO E-1 

FOR j=zi+i TO Kk 

IF nbtiri=n$c it THEM 1184 
Hh$=nbe ir: nb inc 1 2: nb i hé 
Hhh=mbe ir: mb j =mSbc 1 2: mb i =h$ 
H=amé j à: ame j i=armé i 2: amé i 2=h 
H=kaë jiiïckaf jizkalit:kasiizh 
HEXT à 


min 
DEUX EUX] 












RATER URL E LA EUX ELA E LE 









ED 


QT RNB JM EL 


TT me CRE RE É 2 | 
Don En ERA EN EN ER ER ELU EC EL ELU Lt EL) 


er 
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LA] 
ra 
pou 
nm 
= 
— 
= 


FOR. ii TO KE 

PRIHT n$c ii 

IF i=l THEH 1=1+24:GOSUE 14564 
HEXT ji 

GOSUE 1456: GOTO 1434 


Dom 


DUR) 





PRIHT"Si “ous actionnez simF lement 14 touche" 
FRIHT'espace en Qquise d'entrée d'un" 
FRIHT'"'aliment, le calcul des calories" 
FRIHT'"'£era interrompu, MePRIHT:FRIHT 

INPUT "Aliment "5 :FÉTHT 

IF endb="" THEH 1290 

FOR i=1 TO E 

15 IF nblitireng THEH 1454 

1260 PRINT "Combien. de "smbé ii" : INPUT em 

1364 ks=emktk ai i ame à: PRIHT : ÉRINT 

1574 PRIHT"Cela represente"iks;"kilocalories, PRINT 
1554 ksuskeut+tks 

1594 FPRIHT:FRIHT"'Ce qui donne au total"; 

149 FRINT Egus'"kilocalories," 

1414 GÜSUE 1454 

1424 IF enbz"" THEH 1954 ELSE 1274 

1454 HEAT i ; 

1446 FRIHT:PRIHT"IT m'a a Pas d'informations" 

1454 FRIHT'"'Soncer nant l'aliment indique," 

1464 GOSUE 1456: GOT 12705 

14r4 EHC 

1454 FEM SP attendre 

1494 LOCATE 5,25 
1544 PRIHT"Fr. aPpez une touche SMF I" 
1519 xH=IMHEE TS 

1524 IF :$="" THEH 1516 

1534 CL£S:RETUEH 





D D 0 


nt 


a Le Pa Pi Pi Do Po Po Ra Pin 


es RL CO 4 Ca CN a où PQ me 


Br x 
DORE LUE: 





Det bé pet et et et et bot et et Jet ed He jt 
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Liste de variables: 


a = réponse au menu 

am(i) = nombre d'unités auquel se refère l’indication des calories 
em = nombre d’unités de mesure entrées 

en$ = aliment entré 


index de comptage 


Il 


j = index de comptage 

k = nombre d'instructions DATA 
ka(i) = indication des calories 

ks = nombre de calories calculé 
ksu = somme des calories calculées 
1 = variable auxiliaire 


m$(i) = unité de mesure 


n$(i) = aliment 
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Description du programme: 


Lignes 10-70 : Titre 

Lignes 80-90 : Commentaire 

Ligne 100 : Définition de la variable k 

Ligne 110 : Réservation de place en mémoire 

Lignes 120-260 : Fourniture de données au programme 
Lignes 1000-1020 :Lecture des données 

Lignes 1030-1100 : Menu avec branchement correspondant 


Lignes 1110-1250 :Section de programme "Examen des données" 
1110-1190 : Tri alphabétique des données (voir 
également à ce sujet le chapitre 
2.4) 
1200-1240 :Sortie chaque fois de 20 (voir 
variable auxiliaire 1) aliments 
1250 : "attendre" et retour au menu 


Lignes 1260-1460 :Section de programme "calcul des calories" 
1260 : la variable ksu est fixée sur zéro 
1270-1300 :sortie d’explications sur le 
déroulement du programme 

1310 : entrée d’un aliment 

1320 : si la touche espace est enfoncée, un 
saut est effectué à la sortie du 
résultat global 
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Ligne 1470 : 


1330-1430 :la variable en$, définie par une 


entrée (ligne 1310) est comparée aux 
variables stockées n$(i). En cas 
d'égalité, une valeur concernant la 
quantité est réclamée (1350), le 
nombre de calories est calculé 
(1360), le résultat est sorti (1370) 
et la somme de tous les calculs est 
formée dans le tableau ksu (1380). 
En lignes 1390 et 1400 est alors 
sorti le résultat provisoire (ou le 
résultat global, voir ligne 1320). 
Après un saut au sous-programme 
attendre" (1410), a lieu en ligne 
1420 un saut au menu (si les calculs 
doivent être interrompus) ou à une 
nouvelle entrée (1270). En cas de 
non-égalité, la comparaison se 
poursuit (saut à la ligne 1430). 


1440-1460 :Sortie d’un commentaire, "attendre" 


et saut à une nouvelle entrée si le 
nom de l'aliment entré en$ ne fait 
pas partie des variables stockées 
sous n$(i). 


Fin du programme 


Lignes 1480-1530 :Sous-programme "attendre" 
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6.4 Le puits à idées 


- listes de prix à consulter, modifiables, par exemple pour 
les légumes et les fruits. 


organisation de l’économie ménagère 


rangement du congélateur 


fichier de recettes de cuisine 


- archives sanitaires personnelles (consulter, calculer et 
évaluer valeurs de sucre dans le sang, circulation, pouls 
etc.). 

- plan de régime 


- plans de jogging et d'entretien de la forme 


- calcul de risques (par exemple espérance de vie en fonction 
des quantités de tabac fumées). 


- et bien d’autres choses 
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7. Votre ordinateur et vos hobbys 


7.1 Remarque préalable 


Ce chapitre est peut-être l’un des plus intéressants de cet ouvrage 
puisqu'il vous permet d'utiliser le CPC pour de nombreux hobbys. 
Peu importe que vous collectionniez les timbres ou que vous soyez 
supporter d’un sport quelconque, avec l’aide d’un ordinateur et de 
programmes adaptés, beaucoup de choses sont plus simples à 
réaliser. Cela va de la prise en charge de travaux d’organisation 
(où trouver tel ou tel timbre) jusqu’à l’exercice direct de votre 
hobby (nous ne pensons pas ici à la programmation en elle-même, 
mais par exemple au fait d'utiliser un ordinateur pour faire de la 
musique). 


Il n’est évidemment pas possible de décrire ici en détail toutes 
les applications possibles de votre ordinateur. En fait, nous avons 
fait une large place à deux programmes d’exemple qui doivent vous 
montrer les possibilités techniques de votre CPC. Il y a d’une part 
les excellentes caractéristiques graphiques et d’autre part les 
remarquables possibilités de la programmation musicale. Ces deux 
domaines d’application ont d’ailleurs été quelque peu négligés 
jusqu'ici. Un troisième exemple concerne le roi Football qui reste 
un des sports les plus populaires et donc le hobby de beaucoup de 
nos compatriotes. 


De nombreux autres domaines d’application sont cependant 
concevables. Dans le puits à idées de ce chapitre, vous trouverez 
un certain nombre d’idées. Nous vous invitons donc plus que jamais 
à développer, en partant des propositions qui vous sont faites ici, 
des programmes adaptés à vos besoins personnels. La passion que 
vous avez pour un hobby vous aidera d’ailleurs peut-être à ne pas 
vous laisser décourager par les difficultés qui peuvent apparaître 
dans certains cas lors de la réalisation de vos projets de 
logiciels. Peut-être même la programmation deviendra<-elle un de 
vos nouveau hobbys (si ce n’est pas déjà le cas). 
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7.2 Peinture, dessin et le graphisme 


Dans le marché actuel de l’informatique, une tendance très nette se 
dessine qui va dans le sens de systèmes dotés de possibilités 
graphiques. Comme le clavier de l'ordinateur apparaît souvent 
dépassé pour réaliser du graphisme, de nouvelles interfaces pour 
l’interaction homme-ordinateur ont été développées ces dernières 
années. Il s’agit de nouvelles machines d’entrée, telles que le 
joystick, déjà connu de longue date, la souris ou les tableurs 
graphiques. Les tableurs graphiques ressemblent d’ailleurs beaucoup 
au papier, support conventionnel de la pensée. Nous n’évoquerons 
cependant pas ces machines supplémentaires d’entrée dans les 
développements suivants car la description du traitement graphique 
professionnel dépasserait certainement le cadre de cet ouvrage. Si 
vous disposez par contre de cet instrument simple en comparaison 
que constitue le joystick, vous pouvez aisément adapter le 
programme graphique qui vous est ici proposé (voyez le manuel 
d'utilisation). Le programme proposé vous permet de réaliser 
n'importe quelles images (graphiques ou dessins), de les 
sauvegarder et de les charger ensuite à nouveau dans la machine. 
Qu'il s'agisse d’un travail créatif ou des plans d’une maison, cela 
ne dépend que de vous. En tout cas les coordonnées x et y actuelles 
vous seront chaque fois montrées à l’écran (en haut à droite, la 
coordonnée y et en bas à gauche la coordonnée x), de façon à rendre 
possible la réalisation de dessins techniques précis. 


Pour diriger votre "crayon" sur l’écran, certaines touches ont été 
dotées de fonctions spéciales. Lorsqu'il s’agit d’instructions 
INPUT, l'entrée se fait sans couleur, c’est-à-dire que le "crayon" 
et le "papier" ont la même couleur pour ne pas altérer l’image 
graphique. En général toutefois, la valeur de la touche appuyée est 
restituée à l’aide de l'instruction INKEY$. Il n’est pas alors 
nécessaire, comme vous le savez, d’actionner la touche ENTER. 
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Au contraire des programmes précédents, aucune explication n’est 
donc sortie sur le déroulement du programme. Vous devrez donc avoir 
en tête la signification des touches de commande ou bien utiliser 
la liste suivante: 


Touche de commande Signification 


curseur haut une ligne vers le haut 


— une ligne vers la droite 


curseur bas une ligne vers le bas 


<— une ligne vers la gauche 


a ligne sans couleur ou 
début "effaçage" 


Z ligne sans couleur ou 
fin "effaçage" 


k cercle 
valeur rayon en pixel (gr. ENTER) 
valeur angle en degrés (gr. ENTER) 


d diagonale ou ligne tracée 

pour la pente: 

valeur coordonnée x (horizontale) (gr. ENTER) 
valeur coordonnée y (verticale) (gr. ENTER) 
touche COPY tracer ligne 

petite ENTER fin de cette fonction 
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8 cercle plein 
valeur rayon en pixel (gr. ENTER) 
valeur angle en dégrés (gr. ENTER) 


C changement de couleur 
b (gr. ENTER) couleur devient bleue 
r (gr. ENTER) couleur devient rouge 
n (gr. ENTER) couleur devient noire 


s fin du programme 


Après que vous ayez appuyé sur la touche "s", entrez PEN 1 pour que 
le curseur redevienne visible. 


Les explications sorties par le programme sont conçues pour 
l’utilisation avec un lecteur de cassette. Pour le travail sur 
disquette, il faut donc modifier en conséquence les lignes 150, 
190, 260, 310 et 320. Il faut en outre choisir en lignes 200 et 300 
un nom de fichier plus court. 


Comme le maniement de ce programme peut présenter quelques 
difficultés, vous trouverez à la suite de la description du 
programme un petit exemple dans lequel chaque touche de commande 
est présentée au moins une fois. La description du programme est 
également plus détaillée, tel ou tel lecteur pouvant avoir du mal à 
bien maîtriser les instructions graphiques. 
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Programme: 


14 FEM 117 
24 CLS 
34 PRINT"'I1F -— FOR de creation d'un" 
44 PRINT TAB Fi"dessin ou araFhique, devant" 
SA PRINT TAHESFitetre sauve de facon externe! 
64 PRINT TAEC7 "et Pouvant etre recharge" 
FA FRINT:PRIHT:FRINT 
84 FRIHT TABC112"Bernd Éoual, 1985" 
94 GOSUB 1149 
14 ECFRCER 26 
INK 6,26 
IH 1: a 
INF 2,6 
INF 3,11 
A FRIHT'"'Faut-i1 charger un dessin" 
IHPLIT' "sur cassette Con "ini$ 
IF ni$g="n" THEH FRIHT:FARIHT:GOTO 226 
IF ni$gi:"o" THEH 154 
FRINT:PRINT:PRIHT "press PLAY then ans ken 2" 
A OPEHIH "l'araphisme" 
A IHPUT #9,x:1:GOTO 2:44 
FRIHT'Entrez les coordonnees de depart!" 
34 FRIHT'"'Four le Eur Sur pou EM FRIHT 
IHPUT "Cor donnes % 1 
IHPUT"Cocordonnee 4 4 PRINT: PRINT 
PRIHT"'Faut-il = da rder le Graphisme sur" 
IHPUT "cassette. fi: M InÉ 
IF ing="n" THEH 34 
IF in$gi;"o" THEH 264 
OFEHOUT "Graphisme": PEIHT:FAIHT 















FRIHT "Pour la sauvegarde sur cassette" 
FRINT "Press REC and PLAY then ana ken :" 





PRIHT #9, 
GOSUE EL 
3 KEY DEF 
54 KEY DEF 
EEY CEF 
EEY CEF 
4 KEY DEF 
EEY DEF 


= 
ri 


LE + Ti ON Pi 


moon: 
LOMME 

mes bé 

LA ES 


s 
Dn-jJTM 


IF EQF=-1 AND nig="s" THEH CLOSEIH:FEH &:EHC 
IF nig="j" THEH IHPUT #3,a$:G0T0 défi 
a$=IHÉETS:IF a$="" THEH 45@ 

IF a$="H" THEH 4=4+1:0RAU 4, f 

IF a$="C0" THEH xzx+1: DEAN 04, # 

IF a$="E" THEH 4=9-1: CRAN x,4,# 
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F 
à IF a$="9" THEN & 
à IF a$="c" THEH 1916 


IF a$="G" THEH x=x-1 : DRAM : 
IF a$="a3" THEH 

IF a$="z" THEH 
IF a$="k" THEH 6 


IF a$="d" THEH 


Doom D x 


SéA IF a$="s" THEH FEH @:CLOSEOUT : EHC 
Sr4 LOCATE 3 PEH 1:PFRIHT x 

524 LOCATE 55.1:PEH 1:PFRIHT 4 

5939 IF in$="o" THEH PRINT #3,3$ 

644 GOTO 434 

619 FEM Circonference 


541 


Din EE Co Poe D LD OÙ JT ON Be Co M) me 0 0 Ji CN BR Cm DD MEN 
DR OR OO OLD OO D oo Don OE 


LD 0 0 0 D 0 0 OO OÙ D 0) OÙ 0 OÙ QU EN JS JS NS TS NE a Tr M M 


IF ni$g="n" THEH 645 

INPUT #3r.u: GOTO F4 

FEH G:LOCATE 1,1:IHPUT + 
LOCATE 1,1:IHPUT w:PEH # 

IF in$g="o" THEN FRIHT #S a$:FRIHT #3ru 
C'EG 

FOR izi TO 

FLAT x+r#C0Sé 1 34 +r£SIHE ii 
MEXT i 

FLOT x,4,f 

GOTO 434 

FENM C'iagonale 

IF nmi$g="n" THEH FE 

INPUT #9,x1,u1: GOT Fan 

FEH G:LOCATE 1,1:IHPFUT x1 
LOACATE 1:1:IHPUT 41:FEH # 


IF jing="o" THEH FRIHT #8, 23%: PRINT RE 
IF EQF=-1 AD midsz"o" THEH CLOSETH:PEH A: EH 
IF ni$g="o" THEH IHPUT #5.b$:GOTO 524 


bH=IHKETS:IF Hh$="" THEH £14 

IF b$="d" THEH xzx+xl uzut+ul : CRAN 04€ 
LOCATE 35.25:PEH L:FRIHT x 

LOCATE 35.1:FEH 1:FRIHT 4 

IF in$g="o" THEH PRINT #3.E$ 

IF bé="S" THEH 434 

GOTO 794 

REM Cercle Flein 

IF ni$g="n" THEH 316 

IHPUT #3,r:u:GOTO 344 

FEH G:LOCATE 1:1:IHFUT r 

LOCATE 1,1:IHPUT w:FEM 

IF in="o" THEH PRINT #9:23$:PRIHT #Gr.u 
CEG 

FOR izi T0 

PLAT ROUE f 


side 











GA GOTO 45 
414 FEM Changement de couleur 
424 IF ni$gz'"un" THEH 1644 
A2 INPUT #3,fa$: GOT 1454 
44 FEH G'LOCATE 1,1:IHPFUT fa$:FEH 1 
GSA IF fa$="t" THEH frs 
GEG IF fagz!"r" THEH : 
F4 IF Page nn THEH # 





IF ing="i" THEH PRINT HO a$ PRINT #9, fa$ 


CA 

At GOT 434 

144 FEM SF attendre 

114 LOCATE F,85 

12@ FRIHT'"'FraFPez une touche SF," 
134 HeIHEENS:IF s$="" THEN 1158 

144 CLS:RETUEH 
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Liste de variables: 
a$ = chaîne de caractères pour commander les déplacements sur le 
dessin 


b$ = chaîne de caractères pour le dessin des diagonales et des 
lignes 


f = couleur 
fa$ = chaîne de caractères pour modifier la couleur 
i = index de comptage 


jn$ = chaîne de caractères de réponse à la question de savoir si un 
dessin doit être ou non sauvegardé 


nj$ = chaîne de caractères de réponse à la question de savoir si un 
dessin doit être ou non chargé 


r = rayon du cercle 
w = angle 
x,y = coordonnées de la "table de dessin" 


xl,yl = coordonnées de dessin d’une diagonale ou d’une ligne 


= 149. 


Description du programme: 


Lignes 10-90 : Titre 


Ligne 100 


: Représentation du bord de l’écran en blanc brillant 


Lignes 110-140 : Les numéros 0 à 3 de PEN ou PAPER se voient 


affecter les couleurs blanc brillant (ligne 110), 
noir (ligne 120), rouge clair (ligne 130) et bleu 
ciel (ligne 140) 


Lignes 150-160 : Demander si un dessin doit être chargé 


Ligne 170 


Ligne 180 


Ligne 190 


Ligne 200 


Ligne 210 


: Sortie de deux lignes vides et saut à la ligne 220 si 


"n" a été répondu 


: S'il n’a pas été répondu "o", saut à la ligne 150 


: Cette ligne est atteinte s’il a été répondu "o". Deux 


lignes vides sont sorties et une instruction pour 
l’utilisation du lecteur de cassette est sortie (comme 
pour les programmes précédents, il est ici aussi 
possible d'utiliser à la place un lecteur de 
disquette). 


: Ouverture du fichier d’entrée "graphisme" 


: Les coordonnées de départ x et y pour le curseur 


graphique sont lues sur la cassette et on saute à la 
ligne 340 


Lignes 220-250 : Les valeurs des coordonnées x et y sont réclamées 


Lignes 260-290 : On demande si le dessin devant encore être réalisé 


doit être sauvegardé. Si "n" est entré, on saute à 
la ligne 340. Si "o" est entré, le programme se 
poursuit à la ligne 300. 
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Lignes 300-330 : Le fichier de sortie "lgraphisme" est ouvert, un 


Ligne 340 : 


message correspondant est sorti et les valeurs des 
variables x et y sont stockées sur la cassette. 


Saut au sous-programme "attendre" 


Lignes 350-400 : Pour faciliter le maniement du programme, les 


Ligne 410 : 


Ligne 420 : 


Ligne 430 : 


Ligne 440 : 


touches suivantes reçoivent d’autres affectations: 
la touche curseur haut (ligne 350) reçoit la 
valeur H (comme haut), la touche > (ligne 360) la 
valeur D (comme droite), la touche curseur bas 
(ligne 370) la valeur B (comme bas), la touche <- 
(ligne 380) la valeur G (comme gauche), la touche 
COPY (ligne 390) la valeur d (comme draw) et la 
petite touche ENTER (ligne 400) la valeur S (comme 
stop). 


Dessiner le point de départ du curseur graphique 


La variable f est fixée sur 1, c’est-à-dire que la 
couleur du crayon (ou plus exactement du curseur 
graphique) est sur noir jusqu’à nouvel ordre 


Si nj$ égale "o" (c’est-à-dire si un dessin est chargé) 
et si EOF = -1 (EOF ne vaut - 1 que lorsque la fin d’un 
fichier d’entrée est atteinte), le fichier d’entrée est 
fermé et la fin du programme est atteinte. 
L’instruction PEN O0 a pour effet de faire apparaître 
pour ainsi dire sans couleur (la même couleur est 
utilisée pour PEN et PAPER) le message READY qui 
apparaît toujours normalement à l’écran à la fin d’un 
programme. L’image du dessin terminé ne sera ainsi pas 
endommagée. 


Si nj$ vaut "o" mais que EOF <>-1, une nouvelle valeur 
est lue pour la variable a$ et on saute à la ligne 460. 
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Ligne 450 : Si on ne charge pas un dessin, les valeurs de la 
variable de commande a$ doivent être entrées en 
frappant une touche. 


Lignes 460-490 : Suivant le caractère entré pour a$, une ligne est 
tracée dans la couleur actuelle (variable f), de 
la position actuelle du curseur à la position x, y 
indiquée. 


Lignes 500-510 : Si a$ est égal à a (marque de début de 
l’effaçage), le curseur graphique reçoit la même 
couleur que le fond, c’est-à-dire que des lignes 
existantes peuvent être "effacées". Cela se 
produit tant que a$ est différent de z (marque de 
fin de l’effaçage). 


Ligne 520 : Si a$ vaut k, un saut à la section de programme 
"dimension du cercle" (ligne 610) est effectué. Un 
cercle non rempli y sera alors dessiné. 


Lignes 530-550 : Des sauts de programme adéquats sont effectués 
suivant que a$ vaut g ("cercle rempli"), d 
("diagonale") ou c ("modification de couleur"). 


Ligne 560 : La fin du programme est atteinte (si on ne charge pas 
de données) si un s est entré pour a$. Le message est 
sorti sans couleur (voir ligne 430). L’instruction 
CLOSEOUT ferme le fichier de sortie. Si le dessin ne 
devait pas être sauvegardé, cette instruction alors 
inutile ne nuit pas au bon déroulement du programme. 


Lignes 570-580 : Pendant le dessin, la valeur x actuelle du curseur 
graphique est affichée dans l'angle inférieur 
gauche et sa valeur y actuelle dans l'angle 
supérieur droit. 


Ligne 590 : Le caractère pour a$ est écrit sur la cassette si le 
dessin doit être sauvegardé 
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Ligne 600 : Pour un parcours supplémentaire de la section de 
programme des lignes 430-590, un saut approprié est 
effectué 


Lignes 610-720 : 


Lignes 730-870 : 


Dessin d’un cercle 
610 : commentaire 
620-630 : Si nj$ÿ vaut o, les valeurs pour r 
(rayon) et w (angle) sont lues sur la 
cassette et on saute à la ligne 670 
640-650 : Entrée sans couleur (pen 0) des valeurs 
pour r et w dans l’angle supérieur 
gauche de l’écran 
660 : Si cela a été souhaité, les valeurs pour r 
et w sont sauvegardées. Le caractère pour 
a$ est également sauvegardé ici, puisqu’en 
ligne 720 un saut est effectué à la ligne 
430 (la ligne 590 n’a pas été atteinte au 
cours du déroulement du programme du fait du 
saut en ligne 520). 
670 : Commuter sur mesure d’angle 
680-700 : Un cercle est dessiné en fonction de r 
et w: les coordonnées x,y de chaque 
point sont plottées dans le cercle 
710 : Le curseur graphique est à nouveau fixé sur 
le centre du cercle 
720 : Saut à la ligne 430 pour entrer un nouveau 
caractère de commande 


Dessin d’une ligne ou d’une diagonale 

730-780 : Commentaire, interrogation et entrées 
comme pour les lignes 610-660 

790 : Interrogation d'EOF (voir ligne 430) 

800-810 : Les caractères pour b$ sont chargés ou 
entrés (en actionnant la touche COPY) 

820 : Suivant les valeurs de xl et yl, une ligne 

est dessinée tant que b$ vaut T 

830-840 : Affichage des coordonnées du curseur 

graphique 
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850 : Les caractères pour b$ sont sauvegardés si 
nécessaire 
860-870 : Si la petite touche ENTER a été appuyée 
(ou si un "S" a été entré pour b$), un 
saut à la ligne 430 est effectué, sinon 
à l’interrogation d'EOF en ligne 790 


Lignes 880-1000 : En partant chaque fois du centre (ligne 960), une 
ligne est dessinée vers chaque point de la 
superficie du cercle (ligne 970) pour représenter 
un cercle plein. Pour le reste, cette section de 
programme est identique aux lignes 610-720. 


Lignes 1010-1090 :Section de programme "changement de couleur" 

1010-1040 :Entrée ou chargement du caractère 
pour a$ 

1050-1070 :En entrant (ou chargeant) "b", le 
crayon d'écriture devient bleu, 
rouge pour "r" et noir pour "n" 

1080-1090 :Ecrire (si jn$ÿ vaut "o") le 
caractère pour fa$ sur la cassette 
et sauter à la ligne 430 


Lignes 1100-1140 :Sous-programme "attendre" 
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Exemple d'utilisation du programme: 


Une fois le programme lancé, les coordonnées de départ se voient 
affecter les valeurs 120 (pour x) et 200 (pour y). Un dessin peut 
alors être réalisé: 


Entrée au clavier 
—> (jusqu’à ce que 


Explication 
Une ligne vers la droite 


x = 170) 
a 


d 
150 (ENTER) 
200 (ENTER) 
1 fois COPY 
petite ENTER 


Z 


curseur bas 
(jusqu’à ce que 
y = 350) 


a 


d 
200 (ENTER) 
-150 (ENTER) 
1 fois COPY 
petite ENTER 


Z 

<— 

(jusqu’à ce que 
x = 470) 


Début dessin sans couleur 
Diagonale 

150 unités vers la droite 
200 unités vers le haut 
dessiner 

Fin de la diagonale 

Fin dessin sans couleur 


Une ligne vers le bas 


Début dessin sans couleur 
Diagonale 

200 unités vers la droite 
-150 unités vers le bas 
dessiner 

Fin de la diagonale 

Fin dessin sans couleur 


Une ligne vers la gauche 
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-150 (ENTER) 
200 (ENTER) 
1 fois COPY 

petite ENTER 


Z 

curseur haut 
(jusqu’à ce que 
y = 50) 


a 


curseur haut 
(jusqu’à ce que 


y = 200) 
Z 
C 
r (ENTER) 
k 


150 (ENTER) 
360 (ENTER) 


C 


b (ENTER) 


8 
80 (ENTER) 
360 (ENTER) 


Début dessin sans couleur 
Diagonale 

150 unités vers la gauche 
200 unités vers le bas 
dessiner 

Fin de la diagonale 

Fin dessin sans couleur 


Une ligne vers le bas 


Début dessin sans couleur 


Une ligne vers le bas 


Fin dessin sans couleur 


Changement de couleur 
rouge 


Cercle 
Rayon = 150 unités 
Angle = 360 dégrés 


Changement de couleur 
bleu 


Cercle plein 
Rayon = 80 unités 
Angle = 360 dégrés 


Fin du programme 
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Le dessin ainsi réalisé n’est certainement pas une oeuvre d’art. Ce 
qui doit être ici représenté n’est d’ailleurs pas évident. C’est 
pourquoi nous laisserons le champ libre à vos interprétations... 
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7.3 Faire de la musique 


"Enfin" diront les uns alors que les autres se demanderont où nous 
voulons en venir. Il s’agit en effet dans ce chapitre de musique 
programmée ou mieux de sons programmés. 

La programmation de la musique est une application controversée 
parmi les utilisateurs d’ordinateurs. Jouer de la musique ne 
devrait-il pas plutôt être réservé aux hommes qui expriment ainsi 
leurs sentiments et leur vitalité? Nous renonçons volontairement à 
répondre ici à cette question. Rappelons simplement qu’entre autre 
de nombreux groupes pop font actuellement un grand usage des 
ordinateurs. 


En tout cas, la programmation de la musique pourrait constituer un 
chapitre à part entière. Bien entendu il vous faut posséder déjà 
certaines connaissances en musique si vous voulez programmer de la 
musique; sinon, vous ne produirez que des sons épars ou même de 
simples bruits. 


En tant que possesseur d’un CPC vous pouvez fort bien dépasser le 
niveau des bruits car les caractéristiques sonores et musicales du 
CPC sont excellentes. Vous pouvez ainsi, avec un peu de travail, 
imiter différents instruments et sortir la mélodie programmée sur 
vos haut-parleurs HIFI. 


Le maniement des différentes instructions musicales n’est cependant 
pas tout simple. C’est pourquoi le programme de ce chapitre est 
surtout un programme d’exercice qui doit vous permettre de vous 
familiariser avec les instructions musicales. Vous pouvez cependant 
également utiliser le programme pour produire une mélodie avec peu 
de travail (par rapport au travail nécessité par la réalisation 
d’un programme de musique). Si vous n’avez pas encore d’expérience 
dans le domaine de la programmation de la musique, vous devez 
limiter vos ambitions et vous contenter de sortir différents sons 
et bruits. Ce n’est qu’ensuite que vous pourrez programmer une 
mélodie. 
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Ajoutons encore en ce qui concerne le programme qu’il n’est fondé 
que sur les trois instructions musicales de base SOUND (pour 
produire une note), ENV (pour définir une courbe d’enveloppe de 
volume) et ENT (pour définir une courbe d’enveloppe de hauteur de 
note). 


Si vous voulez utiliser les autres fonctions et instructions 
musicales, il vous faut soit compléter le programme que nous vous 
présentons soit développer vous-même un autre programme musical. 


Le programme est par ailleurs largement auto-commenté. Il offre à 
l'utilisateur les fonctions suivantes: 


Instructions musicales 


entrer (seulement les différents paramètres) 


charger 


sauvegarder 


modifier (avec la possibilité d'examiner et de supprimer les 
instructions existantes). 


faire jouer de la musique 


Les entrées pour les cinq sections des instructions de courbe 
d’enveloppe doivent être séparées par des virgules comme par 
exemple: 

Nombre de pas, grandeur du pas, durée de la pause 


Section 1 5,5,2 (ENTER) 
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Précisons que vous pouvez encore simplifier ce programme. Vous 
pouvez par exemple, lorsque des sections de programme se répètent, 
utiliser la technique des sous-programmes et par ailleurs vous 
pouvez également remplacer les variables pli). pS(i) etc. par 
des variables doublement indicées en suivant le modèle suivant 
p{j.i) avec j = 1 … 5 par exemple. Nous y avons renoncé ici pour 
obtenir une plus grande clarté du listing. 

Nous avons également renoncé à intercepter les valeurs d’entrée non 
autorisées. Vous trouverez dans votre manuel d'utilisation 
l'explication détaillée des entrées possibles. 


Encore un conseil pour finir: lorsque vous jouerez votre musique 


pour la première fois, il vaudrait peut-être mieux baisser un peu 
le niveau du volume. 
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OCR LE COR 


La 
A 


Fo lo foi oem bé is be be Ii 0 et Tu EN He time 


Fo Po 


ee QG US) Qi CA He Gi Pi pe 1 QUO OÙ 4 Ps CN Be Le Dei ee D nt 


C3 Li C2 Fo 


A PRINT TAES 
A FRINT'Entree de'":FRIHT 

A PRINT" instructions SOUHL"; THEC SE 2 L'O PRIHT 
A FRIHT" instructions EHY'"iTAE ; 


FEM 11% 
CLS 
FRIHT THE FA"I1S - Programme de musique" 
FRIHT:PEIHT:PEIHT: PRINT: PRINT: PRINT 
FRIHT THECS 3: "Bernd Eoual, 1385" 






PUS RTE 215%, rai 15: 
! par 19), 4618 2rdé 152, PSS, 25 
CIM né 15 tic lui 15 mulet 157 ta 
CIM met 1, LS TS SC 15 UE 152 
DIM dé 1% di 150 RE 167, OC 15e 
FE 

FEM Mer 

FREN 

PRINT TAËS 1 2"Henu":PRIHT:PRINHT 

FRIHT TAES 33 "Entree!" : PRINT 
PRIHT"Instructions musicales :'OPFRINT 
FRIHT" entrer"; TAE ML": PRIHT 
FRIHT" charaer";THE EU: PRINT 





















FRIHT" corriger"; THE SE SU PRINT 
FRIHT" jouer": TAESZ 









a" d'O PRINT 
FRIHT" saur “e9arder" ; TAEËL GE UE" LEP 
PRIHT"'Fin du trawail";:TAE 1 
IHPUT'Yotre choix "5a:CLS 
IF a<1 OK a%6 THEH CLS :GOTO 17 
OH a GOTO 366,994, 1304, 2616,28x 
FE 

FENM Entree des instructions 

FEM musicales 

PRINT TAES 17 "Menu": PRIHT:PRIMT 
2'"Entree!"":PRIHT 













"M FRIHT 
SPRINT 
d'FÉINT:FEIHT 


FRIHT" instructions EHT"iTAE 
PRIHT'Fin de l'entreg!"; THES SE 0 
PRIHT:IHPFUT'"Yotre choix "ia:CLS 

OH 2 GOTO 424,574,774, 370 

IF ail OF ad THEH 326 

L0SE0+ 1 

PRIHT"'Si vous entrez un @ Pour ‘état canal'." 
FRIHT'l'entree est termines." 


4 PRIHT:PRIHT 


PRIHT"'L'instruction SOUHC'";250:":":PARIMT 
INPUT"'Etat canal "iks(so) 
IF kzsésoi=6 THEH 50=50-1:CLS:GOTO 329 
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4 IHPUT'Periode de la note "Mitriso 
A IHPFUT'"'Curee "id s20) 
4 IHPUT'Yalume "ilésoi 










IHFUT"Courbe envelopre volume ";ilhésoi 
IHPUT'"'Courbe enveloFlPle note Mithésoi 
IHPUT'"'Periode bruit "iaPésoi 


IF werzl THEH 1724 

CLS: GOTO 424 

evzeust+]l 

à FRINHT"Si vous entrez Un À Comme ‘numero 

FEIHT'courbe d'envelorre’, l'entree est" 

à FRIHT"'terminee., ":PRIHT:FEIHT 

4 FEIHT'"'L "instruction EH! ges OC PRINT 

INPUT" Humero de courbe d'enveloPhe "indiens PRIHT 

IF nifevi=t THEH evzev-1:CL£S:GOTO 326 

FFIHT'Entrez Len seParant Par des virgules" 

FRINT"'Pour les S sections, le nombre de Pas," 

FRIHT"la Grandeur du Pas et la lonaueur de la" 

FEIHT"pause." 

FRIMT" Hbre Pas. Grandeur Fas.dures Fause" 

FRIHT 

FRIHT'"'Section" 

FRIHT THES di 1:" "3: IMPUT Pis 

FRINT THE di £a" "ic: IHPUT FE 

4 PRINT THE di 35" "i: IHPUT F: 
A PRINT THESd' 4;" "à: INPUT Fds 

ÊT PE LHT THE di Si" "is INPUT F5 

“ersl THEH 14 

GOT SEA 


Ton RE 


ins 
Li 
GR 


MR ERREUR. ES 





: 


TT Ti Di Te UT TI TM UNE 
3 3 






IT | œ 









+ 4 T 


FRIHT"E ous entrez Un À comme ‘numero de 


elappe’, l'entree est" 


FRIHT'"'courkbe d' 
à FRIHT'"'termines, ":FRIHT:FEIHT 

A PRIHT"'L' instruction ENT" sets": "PRINT 

à IHPFUT'Humero de courbe d'enveloppe "inècet 1: PRINT 





IF nétetosàt THEH etset-1:CL£S: GOTO Se 
FRIHT"'Entrez Len seParant Par des virgules," 
FRIHT'POUr lez S sections, le doibre de Fas," 
FREIHT"'la Grandeur du Pas et la longueur de 1a" 


FRIHT'"pPause., ” 

FRIHT" Hbre Fas,arandeur Fas,duree Pause 
FRIHT 

FRIHT'Section" 

FREIHT THE“ 42 1:" "5: INPUT titetvleet us 
PEIHT THE di Zi" "is: INPUT tés | Et 
FRIHT THE 42 3;" Mi: INPUT &5 


AURA 






FRIHT THE di gi" “;: INPUT tdéet 3 wdi et os udé 
PRINT TAES 45 S;" Mi: INPUT Sc et 2, v9c et), USE 


CORRE 
Rime 
ARAUENX 


DUR 
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SD In En 


AA 
nr LD QU OU CN Be Li Pie 1 D D 


D 
RU 


2 


Rp 
Dom: 


AREA 






ee ads — 
Cr AE où 1 5 9 


= 
2 
ca 

at (at E 


IF 
CLS 
ÊLE : 
FEM 


ver=i 
: GÜTO 
GOTO 17 


FE Char: 
FENM musical 
k1 
QFEHIH "" 

IHPUT #3,kd4, 


FÜR 1=k1 


IHPUT #9, kaci is tpe 





A sazsiot 
A MEAT 1 
A FÜR 1=kE T0 ES 


INPUT #2, n1€ 
IHFUT #3.F1 


1: 


ssotl:kzsest+i:kise 


ES HE 
1 Ed=k d+s 0: kS “kS+ ev:késkétet 


124 i210itlhiitthéi st, are i2 





124101 4ric) 
IHFLIT #9 PE 1, l 
IHPFUIT #3, 
IHPUT #3,Fe 
IHPUT #3.F 

“+1 


er 
DA) 


D im 





Ti 
Zi ti 


à FOR iSkS TU 
IHPLIT Ha 
IHFUIT #4, 
A"IHFUT #4 t 
IHPLIT HA, ti 
CIHPUT #4, tdi 
IHPUIT HA, LG 1 1, 
etset+i 

HET 1 

CLOSETH 

4 CLS: GOT 175 

A F'EN 

1 FENM Correction 
1 FEM musicales 
FRIHT TAES1F "Menu": PRINT :FARIHT 

FRIHT TH 3 Entre": PRINT 

FRIHT "Li ati ions de :'PRIHT 

FRIHT" instructic SOUHC" : TAES GE ML PRIHT 
4 FRIHT" instructions ‘ E":FRIHT 

H PRIHT" instructions EHT'": à :RRINT 

4 FRIHT"'Fin des © Orhect ons TPE ! :PRIHT:FRIHT 
FEIHT:FEÉIHT: PRINT 






Le O0 = 4 A a 9 Po nt 


A] 


_ 
A 












us ee 


des instructions 













44 FRIHT:IHPUT "otre choix Mia: CLE 
1418 OH a GOT 145 A, 17584, 21F4, 2546 


1424 IF ai ÜFR aï4 THEH 1524 
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1434 FÜR izi TO so 

1448 FRINT"L'instruction SOUHC "ii" 
1454 IHPUT"'Etat canal 

1464 IHPUT'Periode de la note 

1474 IHPUT"Curee 

1454 IHFUT'"/olume 





14364 IHFUT'"Courbe envelorre volume ‘ 
1594 IHFUT'"Courbe enveloPre note 


1514 IHPUT'"'Feriode bruit ETES 

1524 FPRIHT:FÉIHT:FRIHT'"'Cette ins doit-elle etre" 
FRIHT:FPRINT THE ZS "Entrées": FRIHT 
FEIHT"cotrigee"; TAB GE "I" 

FEIHT "eu" 






re 
AR ENUR 


4 FRINHT'"'suFPrimee":TAES SE AMEN 

A FEINT'ou bien" 

A FRIHT"rester jncharaee FU TAES SE UN PRINT: FETE 
A IHPFLIT' Votre chois "ia 







F. : 
li lai 


IF aïi : THEN 1524 

OH a GOTO 1694, 1624, 1734 

FRIHT:FRIHT:PRIHT "Maintenant je supprime !" 
FU. si TT su 

cac +1 2: ÉPE J'ISLPE +1 5: dé jo dé i+1 


+ ee en 
ru ui 








x 
pe 


Ji 
=): CLS: GOT 1324 
SPRINT 'Enutrez donc maintenant les" 
PRIHT "nou elles valeurs :'OPFRINT 
ver={:heso:sos1 : GOT 4 


= 
DAME 






AE 


3 
4 
5 
É 
4 
4 
[6] 
| 
5 
d 
ee 
Bu] 
5 
F 
5 
3 
(a) 
1 


me. 
CCR 





: 
je 








‘ ti . ‘ 

F4g CLS: GOTO 1324 

Fo FOR i1=1 TO & 

ré FRINHT"'L'instruction ENY!"siit"est PRINT 

Fra FRIHT'"'Humero de la courbe d'envelolre "indé: PRIH 





4 PRIHT" Hbres Pas, randeur Pas, dures Pause" 
A FEIHT 


FRIHT "Set on" 

FFIHT ee . TAB 11P16 1 95 TABE ST 4916 1 1; 
FRIHT ” 
FRIHT 
5 FFIHT 
54 FRIHT 
eg FRINT 1 : 

FRIHT TRE: qi à ; THÉ 115 Fi TAEL EI 1946 1 15 
FEIHT TAES 31 rdc 1 1 

FRIHT THE di SiTAES 11 PE 1 03 TAB ZA 196 ji 15 


ce — 
AU) 


à TAEC EU EE 1 05 


36 à 23 TABE 21 393 à) 
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4 PRIHT TAES 31 rc 1 5 
A FRINT:FRIHT:FRIHT "Lette instruct. ion doit-elle etre" 
G PRINT:PRIHT TABC 33 "Entree": PRINT 

4 PRIHT'"'corrigee":TAESZSE "I" 
H1 
[es 
[a] 
fi 









FRIHT "ou" 

FRINT'auFPFrimes". THES SE ME" 
à PRINT "ou bien" 
à PRIHT"'rest 
THPFUIT ct 
IF se _0F El 






M FRIHT 










de suPPrime !" 





vit. les" 





14 GITE 15 EE 
FA CFÜR jisi T0 k 
S4 FÉIHTUL inetruct ion ENT iitest MOFRIMI 

A PRIAT " Humer de Ta courbe d'envelophe "Mir 1 1e FAIM 














PRIHT" Hbre Pas, Grandeur Pas, duree pause" 

4 FRIHT 

4 PRIHTME ection" 

FRIHT TAES 4 11: TAES 11 EIC 1 1 THE ET 0 1 2 

FRIHT TAE ‘loi 

FRIHT TH AE LA SEE I 3 THB ZA Due 1 à 

FRIHT TA à Ci 

1 FRIHT THE: ES 11 ES ii TAES ZI 

1 FRIHT 
FEIHT TAE 

FEIHT à 

FEIHT 

FRIHT de Se 

FÉIHT:PFEIMT : PRINT" Cette instruction doit-elle etre" 

FRIHT:FARIHT TRES: Entre": FRIHT 

PÉIHT "corrige"; TABEGHE AU" 

FEIHT'"'on" 
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FRIHT'suPrRrimeet; TASSE UE" 

PRIHT "au bien" 

FRIHT'"'rester 

IHPUT "Votre C 

IF aï1 OF a 
[4 OH a ere € 


AE SE UN PRINT 






ni 
(a 
4 
Es 
FA 
.n* 
al 
= 
— 
= 
"Ar 
ni 
a! 
A 
Er 
— 
—. 
pa 
LE 


EUFFrime ! 






;. Sal, CLS: GOTO 15 
LE: PRINHT'Entrez dons 
PRINT" nous “elle ‘ale 





LE intenant les 
CU FRITHT 












&: GOT ee 
S:GÜTO 1 


Je Let Mn MOT Te an “les PULLS 1° QE 


OF 1=i T0 ew 
Fi=Fiiii:41i= 41014: 
pen) Hip Di: 
qd dé ii irderdé ji up 
DES DS 







HEXT à 
FÜR 1=1 T0 et 
tis Eli sw 










OF i=i T0 so 

SOUHC kscii tri din lili th it gpl it 
MEST ji 

GOTO 174 

FE 

FE Sauveñarder des instructions 

FENM musicales 

A FRIHT"'Lomment doit s'apFeler le" 
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RU PTE PINCE TETE" 


EHY mp1, alerii ee ares RE Ars pdd, rép rs 


INPUT" morceau de musique "on$:PRINT 
OFEHOUT $ 

PRINT #3s0es. et. 

FOR 1si TÜ : 


















D LS TR CS BRL ERA RTE ULS 





FRIHT #3,F 
FRIHT #3,F 
FEIHT #3F 
FEIHT #3,F 
FEIMT #36 
1 HE#T 1 
à FÜR il Ë 
A PRTHT HA, nr 1 





















PRIHT HG, ET 
à PRINT HA, Hdi nue 

3 FEIHT HA, LE il 1. 

HET i 

CLOSEOUUT 

CLS: GOTO 15 

FEH 

FE Fin du Programme 

FE 

FPRIHT"'Etes-ous sur de bien avoir 
FRIHT"I informations come Al convient 
PRIHT'"'Si ce n'est Pas le: , entrez" 
PÉIHT "sine lement un ‘oh sion, la touche" 
FRIHT'espace suffit" 

IHFUT 3% 

IF adz"ch" THEH CLS :GOTO 24 

FRIHT:PEIHT:FARIHT" Au revoir" 

4 PRIT: FAIT" Vous pouvez maintenant me debrancter" 
A EH: 

+ FEM 

1 PEN SF Attendre 








sauvegarde" 
De L 
















14 LOCATÉ 5.25 
FRIHT'"'Fraphez une touche SWF" 
"A “H=THEE TS: IF «62 "" THEH 
4 CLS :FRETUEREH 
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Liste de variables: 


Les paramètres de l’instruction SOUND: 

ks(i) = état canal 

tp(i) = période de note 

d(i) = durée 

I(i) = volume 

Ih(i) = courbe d’enveloppe de volume 

th(i) = courbe d’enveloppe de hauteur de note 


gp(i) = période de bruit 


Les paramètres de l’instruction ENV: 

nl(i) = numéro de la courbe d’enveloppe 

pl(i) … p5(i) = nombre de pas (sections 1 … 5) 
al(i) … q5(i) = grandeur du pas (sections 1 … 5) 
rl(i) … r5(i) = durée de la pause (sections 1 … 5) 
Les paramètres de l’instruction ENT: 

n2(i) = numéro de la courbe d’enveloppe 

t1(i) … t5(i) = nombre de pas (sections 1 … 5) 
vi(i) … v5S() = grandeur du pas (sections 1 … 5) 


wl(i) … w5(i) = durée de la pause (sections 1 … 5) 
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Les autres variables: 

a = réponse au menu 

a$ = chaîne de caractères de réponse 
et = nombre d’instructions ENT 

ev = nombre d'instructions ENV 

h = grandeur auxiliaire 

i = index de comptage 


j = index de comptage 


kl 
k2 Y= valeurs initiales de la boucle 
k3 


k4 
k5 }= valeurs finales de la boucle 
k6 


n$ = nom du morceau de musique 
so = nombre d’instructions SOUND 


ver = variable auxiliaire (égale 1 si des modifications 
apportées, sinon, égale à 0) 
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sont 


Description du programme: 


Lignes 10-60 : 


Lignes 70-130 : 


Lignes 140-280 : 


Lignes 290-970 : 


Lignes 980-1280 


Titre 


Réservation de place mémoire pour 500 instructions 
SOUND et chaque fois 15 instructions ENV ou ENT 


Menu 


Entrée des instructions musicales 

320410 : Menu 

420-560 : Paramètres de l'instruction SOUND 
570-760 : Paramètres de l’instruction ENV 
770-960 : Paramètres de l’instruction ENT 
970 : Fin de l’entrée 


: Chargement des instructions musicales 

Les valeurs initiale et finale de boucle sont 
choisies de façon à ce qu’un chargement 
d'instructions supplémentaires soit également 
possible 


Lignes 1290-2590 :Modification d’instructions musicales 


1320-1420 : Menu 

1430-1740 :Les instructions SOUND sont sorties 
sur l’écran. Elles peuvent être 
améliorées ou supprimées (menu 
lignes 1520-1600). La boucle de 
programme des lignes 1630-1670 
permet la suppression d’une 
instruction SOUND. En cas de 
modification, la variable ver est 
fixée égale à 1 et on saute à la 
section de programme "entrer" (ligne 
470, retour ligne 550). 
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Lignes 2600-2800 : 


Lignes 2810-3080 : 


Lignes 3090-3210 : 


Lignes 3220-3290 : 


Dans le tableau h est stockée la 
valeur actuelle de so car la 
variable so fonctionne comme index 
dans Ja section de programme 
"entrer". 

1750-2580 :Le processus est identique pour les 
instructions ENT et ENV. 

2590 : Fin de cette section de programme 


Faire jouer les instructions musicales 

Les instructions de courbe d’enveloppe sont 
exécutées en premier, suivies des instructions 
SOUND. Les paramètres indicés sont à cet effet 
chaque fois représentés sans index car sinon les 
variables de paramètres auraient un trop grand 
nombre de caractères ce qui entraînerait le 
message d’erreur "improper argument". 


Sauvegarde des instructions musicales 

Fin du programme 

Il est cependant encore possible de sauvegarder 
les instructions musicales si on a oublié de le 


faire auparavant. 


Sous-programme "attendre" 
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7.4 Le championnat de football 


Le programme de ce chapitre gère les résultats du championnat de 
football et crée un tableau correspondant. Vous pouvez facilement 
adapter ce programme à d’autres sports. Il vous suffit pour cela de 
modifier les instructions DATA qui comportent la liste des clubs et 
éventuellement les calculs de classement pour la réalisation du 
tableau. Les instructions DATA doivent bien sûr également être 
modifiées à la fin de chaque saison pour tenir compte des clubs qui 
montent en première division ou qui descendent en seconde division. 


Pour utiliser le programme, nous vous conseillons de vous conformer 
à la marche à suivre ci-dessous: 


Etape 1: charger les résultats sauvegardés 

Etape 2: entrer de nouveaux résultats 

Etape 3: sauvegarder les anciens et les nouveaux résultats 
Etape 4: réaliser le tableau 


Vous pouvez en outre examiner à tout moment les résultats chargés 
ou entrés. Vous avez alors la possibilité de sortir sur l'écran 
tous les résultats d’une équipe unique. 


Si l’entrée est effectuée avant le chargement des résultats, les 
résultats que vous venez d’entrer seront effacés. Cela peut 
cependant être évité, si vous le souhaitez, en modifiant ainsi la 
section de programme "charger les résultats": 
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CIN esprit eg Bnetilifretesé 1e 
ASA PEN Charter 1 
FEM 
OFEHIH "Result." 
INPUT #4,eas 
FOR isi TI 
INPUT #9, e: 











A HEËT 1 
FF i=as+i TO AStess 
IHPFUIT HA, 

IHPUT #4, . 
INPUT HA, st SC 





En lignes 1080 et 1100 sont créées de nouvelles variables (qui 
doivent évidemment être également dimensionnées) dont les valeurs 
seront ajoutées aux variables responsables du déroulement ultérieur 
du programme. En outre, les valeurs initiale et finale de la boucle 
en ligne 1120 sont modifiées pour empêcher l’effaçage de valeurs 
déjà existantes. 
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Cette version de programme présente cependant un inconvénient 
décisif: la fonction de programme "examiner" ne présente plus en 
effet les résultats dans l’ordre dans lequel ils ont été entrés. Si 
vous souhaitez notamment observer dans l’ordre chronologique les 
résultats d’une équipe bien précise, ou bien si vous voulez pouvoir 
dégager des tendances indiquant la force des différentes équipes au 
cours des différentes phases de la saison, il vaudra mieux que vous 
renonciez à cette version du programme. 
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Programme : 


1 
Eux] 


FEM 113 
CLS 
FEIHT "119 - Programme de Championnat 
PEIHT:PEINT:PEIHT:PAIHT:FEIHT:FPEIHT 


1355" 


dt 


— 
al 


GOSUE 
CIM brgé 
OT +1 
CTt =1$ 
CATA 
C'ATA 





PRINT TABSS 'Bernd Éoual, 
1756 


CATA 


JD Bof e DD Dm D D: 
En 


ses = Om 
D Qi M im EE 





Eee pee pb De pe ie EU 0 TN D Te 





à 


Rennes) Me 










FÜF 


isi TO 2€ 





CATA Metz.be, Lens. Le 

CATA Toulouse, Te. Hanca , Hu 
CATA Lille.Li.Erest.Er 
DATA Bordeaux. Eo.Mice, Mi 


La, Ausertree, AU 
AiLh.Marseille, Ma 












F'EAC 
A HET i 


Er 


FRIHT TA 


4 FRIHT" 
FRIHT" 
FEIHT" 
FEIHT" 
FRIHT" 

PRIHT"C 
14 PRIMHT" ter 








1E#ii 


PRIHT "Fu l 


TEU-LE TS der 


ET 


miner 








CE saniner “ : TA 
chat er." : TA ! 





FEIHT TAEE 16 A AL IIR Nue 
a"En 


:PRIMT 


; Le RE 


le tableau à"; TAB 36 
le tableau et" 







FETHT : 


IF ai Fr 


FOR i=1 TO 24 

36 PRINT #1, bmgc i à: 
G HET i 
A MIHDOU #2,1,16,1:25 
CA PRINT #2, "Combien 
à PRINT #2, 


FF THT: APRES 


OH a GOTO ZE A, 7 


Le Pt 


4 FEM 
A REM Entree des resultats 
74 FE 
+4 MINCOU #1,17.44,1,25 
394 FRIHT #1. “POUr l'entree, 
A PRINT #1,'"les abreviations 
A PRIHT di lantes 


Make 1 


de" 


resultats" 
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EM: PRINT 
EC PRINT 


1 2" " 
4 





de fout" 





:FRIHT 


AE GE EU PRINT 


S'PRIHT #1 





utilisez" 


te: 


454 FRIHT #2,'"faut-il" 

424 IHPUT #2, "entrer "ies:PRIHT #£ 
244 FOR i=as+1 T0 15462 

514 IHPUT #2, "Locaux "int 

524 IHPUT #£,'"Eut “ith 

934 IHPUT #2,"Wisiteurs "iaté 

544 IHPUT #2.'"Eutz Mit 

Soa FOR izi TO 26 





+ DO U JDNIN LS TR DO 


26 IF Hht$=kgé iï THEH ïi=i 

Sr IF Aat$skgé ii THEM iZ=i 

254 HEXT j 

29 ue SPE 14 :spé jarespé ir 
CTsIs) a THEH ai iii 41 +1 
AtA ; THEH né ils né it +l: 









a 





Fi, THEH ii mu 
btC Lette th: Le n+ta 

tic i2istie iDh+ta: =t26 j234th 
LH=STREE th: Lab=STRSE ta 

S1$6 1 1=bmbé 1 1: sé 1 sbmbé Et ste 1 ds tH$4+" LA 
PRINT HE, :HEËXT j'assastes 

CLS: GOT TA 







S12+1: 





= 
ai : 


DD D D D D © 0 D D OO D QE 


FE 
REM Examiner les resultats 
FEM 


PRIHT TAEËS 164 "Menu: PRIMT:FRIHT 

PRIHT THE 35 "Entre": PRIHT:PRIHT 

PRIHT'"'Examiner tous lez resultats"; TAES SE UT PRIHT 

FRIHT'"'Examine = sul =, 

PEIHT'"d'une equipe"; TAEC GE M2": PRIAT 

PRINT"'Fin de l'examen " TAEK SE" 

PRINT: FRIMT : IHPUT otre ceci "ia: MOCGE 2 

IF 2341 OR 2553 THEH MOCE 1: GOTO FE 

1=4: OH 3. cOTa 214.564, 1424 

FOR i=i T0 az 

PRIHT s1$ci0;"-";2980 1 51: TABC 455: 
ELU 1=74 THEH =: GO ILE 1 









ge D D OÙ = Te A 2 û Pd e D D O0 4 Mi 1 BR 






A GQ Fat: MOCE 1:GOTO FE 
F1 PRINTrPouR l'entree, utilisez les" 

A PRIHT'abreviations suivantes : "PRINT 
84 FOR i=i TO 24 
[re] 
E 





PRINT bmgéiïi"z";kgé io 
4 HEXT i:FRIHT 
4 INPUT'"'Guelle equiPe "imb:CLS 
G FOR i=1 TO 24 
G IF mb=k$Ci) THEH mb=bméé i à 
ä MEXT i 
4 FOR i=1 TO as 


10 (0 40 (D 5 0 00 09 95 00 00 05 5 O9 00 ND I A TS TA TS ST TS Ti Ta M Mi M M M TM 
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M] 
ut 


IF mb=si$é it OF mbzzZ2$c is THEH 354 
GATO 1006 
PRIHT sigéini "tissée 13 TAES dû ste 1 1 
1=1+1:IF 1226 THEH 126: GOSUE 1754 

HET ji 

GOSUE 1FS8:MOCE 1:G0OT0 FFE 

HMOCGE 1:G0T0 ZA 

FE 

FENM Charger resultats 

FE 

QFENINH "Result," 

INPUT #9,a 

FOIE izi TO 4 

IHPUT HG, spé di ne Mu d nou in LAC im RE I 
HET i 

FOR izi T[0 as 

IHFUT #2,21$6 i 1 

IHPLIT HS, sec i 


JT 


Un : 






LUR) 





pu 
DR 


si 


A Ste en on 
DA EN EX ELA EUX EE 





ENT EX) 





Lx 
Et, 








HEXT i: CLOSE LH 

CLS: GOTO SEM 

FEN 

REN Sauvegarder pesultats 
FEM 

OFEHOUT 'fesult, " 

FRIHT #3, 
FOR i=i T0 24 

PRINT HA spé, Qi ou rom tie ta io) 
E4f HEËT ji 

1254 FOR iz1 TO ax 

1264 FRIHT #4, s1$ci: 

1274 PRIHT #4, 2266 11 

1264 FRINT #9, st$ci5 


D ob bed Det Det D ot D Det ot ot De Det D Hi D Pet et et et D LOI 10 LOI 


NP a a pee jet ht et et ea Det a d 


_ 
PA 
DS SD © 0 D D D D © D D D © D D D mn 


[G} 
1 
4 
S 
Ë 
F 
4 
[E, 
1 
4 
5 
Ë 
md 
' 

£ 
a 








1234 HE* 4T i : CLOSEQLIT 

1:44 CLS:GOTO 274 

1314 REM 

1224 FEM Creer le tableau 
334 FEM 

1344 FOR ii TO 4 


1354 pic ia i#2+uc ii 

1360 PEC 1 = i TEE+UÉ 1 9 

1574 HEXT :i 

1584 FOR i=1 TO 1% 

1354 FOR j=i+1 TO Z4 

14G4 IF pidiïipis ii THEH GOSUE 1654 

1414 IF Pidiaspit ii THEH 1474 

1444 IF tidio-tsé intl ii-teé i) THEH GOSUE 1634 
1454 IF tifii-tecihetil ii-tié ii THEH 14FG 
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[er 


IF tidititis ii THEH GOSUE 1654 

HET 

HET i 

MOCE 

PRINT TAES EG "Championnat de football de Premiere d 

ion" 

FRIHT : PRIHT : FÉINT TAECSAONMMES 4, et PF. but 
Points 

FÜR i=1i T0 4 

FRIHT LSIHG Mis PRINT". ibrbe ài 2: 

FRIHT TA 4 USINE "HH EPÉ I 

FRIHT LISTHO MH# OO Migé iur dis ; 

PETHT ESTHER UOOHER  MitiCi 

FÉTHTISUS SPRINT LSING MARK MEHR 1; 

PRINT LISTHG ## "irici’ 


ee Det pb 

un BLLELE 
Fa me LD 0 JT 
D ii R DRE EN 


n= 


_ 
Dot] 


4 








Ex 
ii 









CA 
EARLA) 


D Ti A Be Lo Fo 


Ru] 







Ti TN 9 7 9 IAA En 


Fa ee Di 
REA EX EX 


—_ 
= 


RETIRE 
FE Sous-Proïrarnme attendre 
LOCAITE So 

FRTHTIErR 
Pal IF. PEUR THEH 178 
EG CLS :RETURH 







Da Dh jt Det Jeb et eo pet dt ed pet pet jo jt ed Dub pb el bob Dub Lot pd Det Pub mob Dot Det Det et (14 Det 
H — Tu Ts nr 
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Liste de variables: 


a = réponse au menu 

as = nombre de résultats de matchs 

bm$(i) = équipes du championnat 

es = nombre de résultats entrés 

gt$ = équipe jouant à l’extérieur 

g(i) = nombre de matchs gagnés par une équipe 

h = variable auxiliaire du sous-programme "échanger" 
h$ = variable auxiliaire du sous-programme "échanger" 
ht$ = équipe locale 

i = index de comptage 


j = index de comptage 


ji = nombre index de l’équipe locale 


j2 


nombre index de l’équipe invitée 

k$(i) = abréviations des noms d’équipes du championnat 

1 = index de comptage 

m$ = équipe dans la section de programme "examiner les résultats" 
pl(i) = points positifs d’une équipe 

p2(i) = points négatifs d’une équipe (inutilisé dans la version 


française du programme) 
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oi = les équipes participant à un match de football 
s2$(i) 

sp(i) = nombre de matchs d’une équipe 

st$(i) = résultat d’un match de football 

t1(i) = buts marqués 

t2(i) = buts encaissés 

tg = buts marqués par l’équipe jouant à l’extérieur 
tg$ = tg comme variable alphanumérique 

th = buts de l’équipe recevant 

th$ = th comme variable alphanumérique 

u(i) = nombre de matchs nuls d’une équipe 


v(i) = nombre de matchs perdus par une équipe 
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Description du programme: 


Lignes 10-60 : 


Lignes 70-90 : 


Lignes 100-180 


Lignes 190-210 


Lignes 220-340 


Lignes 350-680 


Titre 


Réservation de place mémoire pour 20 équipes et un 
total de 380 matchs 


: Les noms des équipes du championnat sont mis à la 


disposition du programme avec des abréviations 
correspondantes 


: Chargement des données 
: Menu et instructions de saut 


: Entrée des résultats de football 


380-440 : Sortie d’une explication dans une 
fenêtre de texte définie 

450-670 : Entrée des résultats dans le reste de 
l'écran. En lignes 550-580, les noms 
d'équipes entrés sont comparés aux 
données pour déterminer les index 
correspondant aux deux équipes 
participant au match. En fonction de ces 
index sont actualisées les variables 
responsables de la réalisation du 
tableau (lignes 590-640) et le résultat 
de football en tant que tel est placé 
dans les tableaux prévus à cet effet 
(lignes 650-660). À cet égard, la ligne 
660 montre encore une fois une 
possibilité du traitement des chaînes de 
caractères. 

680 : Retour au menu 


Lignes 690-1020 : Examen des résultats 


720-800 : Menuet branchements dans le programme 
810-850 : Sortie de tous les résultats 
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860-1010 : Un nom d’équipe est réclamé (ligne 


1020 : 


Lignes 1030-1160 : 
Lignes 1170-1300 : 


Lignes 1310-1610 : 


910), l'abréviation est identifiée 
(lignes 920-940) et sont sortis les 
résultats des matchs avec la 
participation de l’équipe indiquée 
(lignes 950-1000) 


Retour au menu 
Chargement des résultats 
Sauvegarde des résultats 


Réalisation du tableau 
1340-1370 :Les points positifs et négatifs sont 


calculés pour chaque équipe 


1380-1480 : Chaque équipe est comparée à toutes 


les autres et l’ordre est changé le 
cas échéant dans le sous-programme 
en lignes 1650-1740 (voyez également 
à ce sujet le chapitre 2.4 de cet 
ouvrage). Les valeurs utilisées pour 
la comparaison sont les points 
positifs (lignes 1400-1410), Ja 
différence de buts (lignes 1440- 
1450) et le nombre de buts marqués 
(ligne 1460). Ce n’est qu’en cas 
d'égalité pour un critère de 
comparaison qu’on passe à la 
comparaison avec le critère suivant. 


1490-1610 :Sortie formatée d’un tableau 


Ligne 1620 : Fin du programme 


Lignes 1630-1740 :Sous-programme "échange" 


Lignes 1750-1800 :Sous-programme "attendre" 
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7.5 Le puits à idées 


- Recherche de rimes avec l’aide de l’ordinateur (les rimes 
correspondent en effet le plus souvent à une identité totale 
des dernières lettres de mots différents). 

- Entretien de fleurs ou du jardin 

- Fichier de recettes de cuisine 

- Classer et gérer des collections de tous ordres 

- Cours programmés (voile, morse, etc.) 

- Evaluation des résultats de grandes manifestations sportives 

- Plan d’entraînement avec l’ordinateur 

- Durées d’exposition dans un laboratoire photo (votre CPC, 
avec son horloge en temps réel, est particulièrement 
approprié à une telle tâche). 

- Graphisme en deux ou trois dimensions 


- Programmation de patrons 


- Plan de gestion des sections de lignes de votre chemin de 
fer (ou circuit) en modèle réduit. 


- Commande informatisée de votre chemin de fer en modèle 
réduit (il suffit pour cela de disposer de quelques notions 
supplémentaires en électronique). 


- Et bien d’autres choses encore. 
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Et voici comment pourrait se présenter un programme élémentaire 
d'entretien de vos fleurs. 


FENM Entretien dez fleurs 
k=d4 
FEMME corresPond au nombre de fleurs ou de Plantes 
CIM Ehék ss ubk 1. 1s$ck 
CATA lis 
CAT arroser. Feu 
DATA Garder à Va lumiere et au chaud 
DATA soleil 
CATA ar et suphont par en Has 
CAT + a la lormiere et Un Feu au chaud 
C'ATA dalhia 
A arroser Peu 
: Garder au frais et on Feu a l'ombre 
CATA beGioni a 
CATA garder un Feu au &ec 
CATA Placer un Peu a l'ombre 

FER structure des inetr ions CATA 

FEM data fleur, lumiere où situation 
FOR iz1 TO E 

FEAC bé à, mg 1 1, L'h i à 
HET i 

CLS 

PRIHT'"'Vouzs Pouvez demander 
FRIHT'aur les fleurs ou Fla 
FOR 1=1 TO E 

FRIHT ji" "hi 

HET i 

FRIHT PRINT :TIHPLIT M Entrez on mere on 

IF ntk OF nil THEH 594 

CLS 

FRIHT Een PETITS PEINT :PETIMT géo PRINT PRINT 1h 








Di OP DD D Un 









DCR ER ER EN 





D O0 TI 4 ET M TN UN CN RU me 











1 iD 0 





ee, 


RAR RAR EUR LR EN ET EUR ELA EL ET) 
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7 
D JUN Re 






Fi nm 
Den En Eux 


Ex 


PRINT: PRINT: PRIHT :PÉTHT PRINT Four d'autres informa 
NE veuillez" 
6 PRIHT “lancer le Froëramue à mousean" 


É 
ë 
Ë 
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Ë 
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rs [a] 
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Ce programme est construit comme le programme de calcul de 
calories. Il peut être aisément étendu à d’autres sortes de 
plantes. Une autre répartition des critères d’entretien est bien 
sûr également possible. 


Nous vous proposerons encore un petit programme concernant le 
"tricot". Outre la possibilité de concevoir un pullover à l'écran 
et de faire imprimer des patrons de tricot au moyen d’une routine 
de hard copy, possibilité nécessitant techniquement beaucoup de 
travail de programmation, il est également possible, et c’est 
beaucoup plus simple à programmer, de réaliser un "calculateur de 
mailles". Il s’agit en effet simplement d’un problème de règle de 
trois: 


10 REM Calculateur de mailles 

20 CLS 

30 INPUT "Nombre de mailles sur une largeur de 10 cm ";m 
40 PRINT:PRINT:INPUT "Largeur du pullover en cm ";l 

50 PRINT:PRINT:PRINT:PRINT 

60 PRINT "IL vous faut donc ":m*1/10;" mailles." 
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8. Ces chers petits 


8.1 Remarque préalable 


Ce chapitre a pour but de vous montrer comment un écolier ou ün 
étudiant peuvent employer l'AMSTRAD CPC. Vous avez peut-être des 
enfants scolarisés auxquels vous pourrez présenter les programmes 
de ce chapitre, un peu comme un contre-poids aux programmes de jeu 
largement répandus parmi les écoliers. 


Il est évidemment possible de développer des programmes très utiles 
pour les problèmes les plus différents qui meublent le quotidien de 
la vie scolaire. Les problèmes mathématiques occupent cependant la 
première place, les mathématiques étant certainement la matière la 
plus "proche" des ordinateurs. Vous trouverez cependant également 
un programme de vocabulaire un peu plus ambitieux dont l'intérêt 
est notamment de pouvoir être aisément modifié pour être adapté à 
d’autres questions. 
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8.2 Table de multiplication 


Le programme de ce chapitre conviendra particulièrement à l’écolier 
en primaire. Il peut être modifié sans problème pour fonctionner 
avec une autre opération arithmétique de base. Une partie 
considérable de l’arithmétique élémentaire peut donc être ainsi 
couverte par ce programme. 


A partir d’une valeur maximale à entrer, des nombres aléatoires 
sont produits dans le déroulement du programme qui serviront à 
poser un problème de multiplication. Cet exercice doit alors être 
résolu aussi correctement que possible. Une fois les exercices 
terminés, le taux de réussite est indiqué. Il s’agit donc, comme 
pour l'entraînement à  l’apprentissage du vocabulaire, d’un 
programme d'interrogation. 


- 187 - 


Programme : 


FEM IZ 

CLS 

FÉIHT "LEA ee Proramme d'exercice" 

FÉIHT TAESFi"de table de multiFlication" 
PEIHT:FRINT:PARIHT:FRIHT: PRINT :FRIHT 
PEIHT THÉC SU "'EBernd Foual, 1965" 

GOSUE 354 

FÉIHT'ES sutrant 1a 
FEIHT'interromPre l'es 
A PRIHT:PAIHT"' Mais veuille 
A FRIHT" nur me À M TE 
4 IHPUT MT exepogiue Mir: ÉLe 

CORNE 

14n PRIT "Eee tre: is" 0 PRINT: PRINT: PRINT 
TRS PRIE A ITS ASE ER EE EE RoUNee “es Az 

166 FRTHT TAF AU fli"fois IHFUIT" = "ep # 
LP UIF ephe"z" THEM 75 

15 ep =VALE ep 4 


Dot) 





mn 
2 


m9 


DEL 
Me ERX) 


= 
ee 






er, 
_ 


ne me es EN OU MN D tof 
CCR A 





















crasrat+i:GOTO Zi 
+1: derie PRINT 


i à TRE 11 dite Fe 
È PRINT TAES 11 "Fan 

PRINT TAES IG FA" 
QUE ee SA: GOT 156 















PRINT" Sur "iii 
FEIHT Fc, Mpepo 
PÉTHT pa "pepe 
FÉIHT:PAIHT.FETIMT : 
1 FPRIHT ROILINTE d'a ET AE, 
FRJHTUE des repose ET 
FRÉIHT:PARIHT" et" ROUHDI ra. 
PRINT" etaient Justes 
FRIHT:PÉIHT PRINT" Fin des calcule!" ENT 
’ FE Los ch Faar atoE attendre 

4 LUICATE F2 | 
FÉIHT'"'Fraprez une touche SMF, OU" 

“Re THE" S 

[FE xg=z"" THEN 3864 

A CL£S:RETURH 
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Liste de variables: 


ep = produit entré 


ep$ = tableau d’entrée pour ep 


f1 = premier facteur 

f2 = second facteur 

fa = nombre de réponses fausses 

gz = nombre maximum de l’exercice 


i = nombre de problèmes posés 
p = produit calculé 


ra = nombre de réponses correctes 


- 189 - 


Description du programme: 


Lignes 10-70 : 


Lignes 80-120 : 


Lignes 130-160 


Lignes 170-180 


Lignes 190-240 


Lignes 250-330 
Lignes 340 : 


Lignes 350-400 


Titre 


Sortie d’une explication de l’utilisation du 
programme et demande d’une valeur pour le nombre 
maximum de l'exercice 


: Un problème est posé et un résultat est demandé 


: Si l’exercice doit être interrompu, on saute à la 


sortie du taux de réussite. Sinon l'entrée 
effectuée est convertie en une valeur numérique 


: On teste la justesse de l'entrée, un commentaire 


en conséquence est sorti et le résultat de la 
vérification est enregistré. On saute ensuite à la 
ligne 130 pour poser un autre problème. 


: Sortie du taux de réussite absolu et relatif 


Fin du programme 


: Sous-programme "attendre" 
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8.3 Test de nombres premiers 


Un nombre entier x est dit nombre premier s’il ne peut être divisé 
sans reste que par lui-même et par 1. Le nombre 1 constitue une 
exception puisqu'il n’est pas considéré comme premier bien que ne 
pouvant être divisé que par 1. 


Si l’on excepte le nombre 2, qui n’est pas habituellement considéré 
comme un vrai nombre premier, on peut constater par ailleurs qu’un 
nombre pair ne peut être un nombre premier puisqu'il est par 
définition divisible par 2. 


Le test des nombres pairs peut cependant prendre un certain temps. 
Ils doivent en effet être divisés par tous les diviseurs supérieurs 
à 1 mais inférieurs à eux-mêmes. Si une de ces divisions produit un 
résultat entier (division sans reste), le nombre testé n’est pas un 
nombre premier. Ce n’est que s’il y a un reste pour toutes les 
divisions effectuées qu’on est en présence d’un nombre premier. 


Il est évident que le test de grands nombres prend énormément de 
temps si l’on ne dispose pas d’un ordinateur. Par ailleurs le 
programme nécessaire pour ce travail n’est pas très difficile. Le 
déroulement du programme découle directement des explications 
précédentes. 
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Programme: 


CEH TZ 
[LE 
FEIHT "IE Frongratarn ce Le A 
PÉIHT THE "nombres Premiers" 
FEIHT: PRINT :PAEIHT:PEIHT:FETHT :FPETHT 
FÉIHT TAËS 35 'Berd Koual. 1985" 
GÜOSLUE TA 
FEINHT'Entrez un nombre entier" 
_ INPUT P GS tif "aix 
FETHT : PETHT:FETHT 
IF 71 THEH 14f 
PRIHT"I RS nombre À me fait Pas partie" 
FÉTHT' ES norabees Premiers, GOT FAR 
FOR 128 TO zx 
IF 73=IHTi ze 1 THEH 188 
HET ji 
A FRIHT z: 
FEIHT 
1 FRIHT x 'ust visibhle Far"ii 
4 FÉIHT: FRIHT: PRIHT"E Lu c calculs": EH 
LIU FEM Sons-prodranmme attendre 
41 | OCATE 
FÉIHT'F 6 aprez une touche EM OO" 
ge THÉE "SES 
SA IF she" THEN AA 
TEA CLS: FETUEH 


1 — 
A 2 
lt it 


3 
ï 





Dex 





É 
RER E 


1 
at 2 


LA fa 12 
Li D 


Del 


0 JM 
2 


=, 
uit 


est un ombre Premier, "GOT ZA 
\ , : US Premier car" 









rime 2 2 mi OT 
; —, 
2 
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Liste de variables: 


i = diviseur 


z = nombre à tester 


Description du programme: 


Lignes 10-70 : 


Lignes 80-90 : 


Titre 


Entrée d’un nombre 


Ligne 100 : Impression de trois lignes vides 


Lignes 110-130 : 


Lignes 140-160 : 


Lignes 170-190 : 


Si le nombre 1 a été entré, un commentaire est 
sorti et on saute à la fin du programme 


Dans cette boucle de programme, le diviseur i est 
chaque fois augmenté de 1 jusqu’à ce qu'’ait été 
atteinte la valeur z/2. Si une division sans reste 
s’est produite, au saute à la sortie du résultat 
correspondant. La boucle ne tourne que jusqu’à z/2 
car avec des nombres supérieurs il ne serait plus 
possible de toute façon d’arriver à un résultat 
entier. 

Pour z=2 et z=3, la boucle n’est pas parcourue 
puisque z/2<2. On atteint toutefois la partie qui 
convient de la sortie du résultat en ligne 170. 


Sortie du résultat 


Ligne 200 : Fin du programme 


Lignes 210-260 : 


Sous-programme "attendre" 
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8.4 Détermination du point zéro 


Le calcul du point zéro pour des fonctions quelconques constitue 
une partie importante des mathématiques. De nombreux problèmes 
mathématiques lui sont liés. 


Le procédé qui est à la base du programme que nous vous proposons 
est celui de l’imbrication d’intervalles. A l’intérieur d’un 
intervalle de limites a et b, figure obligatoirement un point zéro 
si les signes des valeurs de fonction f(a) et f(b) sont différents. 
Si le signe de f( + 8 ) est égal au signe de f(a), alors le point 
zéro se trouve dans la partie droite de l’intervalle. Dans ce cas 
on affecte la valeur &+b à a et on recommence l'opération. De 
même, on affectera à b la valeur &+e si le point zéro se 
trouve dans la partie gauche de l'intervalle, c’est-à-dire si le 
signe de f( ste. ) est égal au signe de f(b). 








Cette procédure pourrait être répétée pratiquement à l'infini. 
C’est pourquoi il faut fournir une valeur, comme critère 
d'interruption, qui limitera le nombre d’imbrications 
d’intervalles. Dans notre programme, cette valeur est de 500 (ligne 
270). Bien sûr pour de petits intervalles, un nombre inférieur 
d’imbrications suffirait pour obtenir un résultat précis mais cette 
valeur peut par contre se révéler trop petite pour les très grands 
intervalles. 


Le programme que nous vous présentons suppose que les valeurs de 
fonction des limites de l’intervalle soient de signe différent bien 
qu'il puisse également y avoir des points zéro dans un intervalle 
si cette condition n’est pas remplie. Cela signifie simplement dans 
ce cas qu’un trop grand intervalle a été choisi. Par ailleurs, nous 
avons négligé le cas particulier de l'existence de plusieurs points 
zéro. C’est pourquoi il est conseillé de travailler avec des 
intervalles relativement petits. 
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Vous pouvez appliquer ce programme à n’importe quelles fonctions. 
Il suffit de modifier chaque fois en conséquence la ligne de 
programme 340. Faites cependant attention à la régularité de la 
fonction entrée, sous peine de provoquer des messages d'erreur. 
Dans notre programme, la fonction prescrite est la fonction simple: 


y = x 3 -5 
Cette fonction a un point zéro pour 


x = 1.7099 … 
Programme: 
A FENM LEE 
CLS 
FRIHT MISE — Programme Pour déterminer 


x 
2 












A SOSUE SEA 

14 FRIHT'Quel intervalle faut-il" 
14 PFEIHT! aminetr É'CPETHT 

LS IHPLIT Pnstu te eee Ti nhersa] évalue 
LE IHFLIT "Es ï de l'interualle ho" 
4 


Î 

SE 

A PRINT TAES Files Points ze 

SA PRINT :FETHT:FETNT : FATHT : FTHT PRINT 

SA FEIHT TAB 'Gernd Eoual, LES" 

Fa GOSUE 364 

E4 FPRIHT'La ligne 544 definit une fonction fixe." 
A4 FRIHT'En maudifiant cette ligne du Frame." 
HA POINT us Pouvez utiliser le Frogramme" 

116 FEIHT'"e lement Pour une autre fonction" 

[5 

Î 












pan Fur 2e mia GOT HA 
ps Fou ue be CUITS 
TU 
, remplie," 


5 à fa à °THEH ass ass ELSE kbes:fhzs 
1 HE“ T i 





FEÉTIHT : FRIHT : PRIMT "Point. PO T TCE TCC nu i3 
FF IHT "F ve EL m 
FEIHT:FETHMT : PRIHT “Pin dez calculs" :EHl 
4 uex"g5S 
FETLIFH 


FENM Sous 
LOCATE 5 
4 FÉIHT"Fraphez ne omis EMA OO" 
1 He INEETS 

IF xp="" THEH 396 

CL£: FETLUEH 


aaranmre at bemidre 






Liste de variables: 


valeur de fonction du début de l’intervalle 


a = début de l'intervalle 
b = fin de l'intervalle 
fa = 

fb = 


valeur de fonction de la fin de l'intervalle 


i = index de comptage 


x = valeur x de la fonction 


y = valeur y de la fonction 


Description du programme: 


Lignes 10-70 : 
Lignes 80-120 : 
Lignes 130-160 : 


Lignes 170-200 : 


Lignes 210-220 : 


Titre 

Sortie d’une explication et "attendre" 

Entrée des limites de l’intervalle 

Les valeurs de fonction des limites 


l'intervalle sont calculées et sorties par 
sauts au sous-programme (ligne 340) 


de 
des 


Sortie d’un commentaire et saut à la fin du 
programme si la valeur de fonction d’une limite 


d'intervalle est égale à 0 
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Lignes 230-260 : Si la condition de signes différents 
remplie un commentaire est sorti et on 
fin du programme 


Ligne 270 : Ouverture d’une boucle de programme 
imbrications d’intervalles 


Ligne 280 : L’intervalle est divisé par deux et la 
fonction correspondante est calculée 


Ligne 290 : Si le signe de la valeur de fonction du 
l'intervalle SGN(y) est égal au signe de la 


n’est pas 
saute à la 


pour 500 


valeur de 


milieu de 
valeur de 


fonction de la limite gauche de l'intervalle SGN(fa), 


alors le milieu de l'intervalle devient 
gauche de l'intervalle pour le suivant 


la limite 
intervalle 


divisé par deux et la valeur de fonction du milieu de 
l'intervalle devient la valeur de fonction de la limite 
gauche de l'intervalle suivant. Si le signe de la 
valeur de fonction du milieu de l'intervalle SGN(y) est 
différent du signe de la valeur de fonction de la 
limite gauche de l'intervalle SGN(fa), alors le milieu 
de l'intervalle devient la limite droite de 
l'intervalle pour le suivant intervalle divisé par deux 


et la valeur de fonction du milieu de 


l'intervalle 


devient la valeur de fonction de la limite droite de 


l'intervalle suivant. 
Ligne 300 : Fin de la boucle de programme 
Lignes 310-320 : Sortie du résultat 


Ligne 330 : Fin du programme 


Lignes 340-350 : Sous-programme de définition de la fonction 


Lignes 360-410 : Sous-programme "attendre" 
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8.5 Entraînement au vocabulaire 


Dans l’apprentissage de langues étrangères, votre CPC peut 
également vous fournir une aide efficace. Il serait par exemple 
possible de développer un programme entier d’enseignement d’une 
langue étrangère. Cela dépasserait cependant le cadre de cet 
ouvrage. Avec de bonnes ou très bonnes connaissances en BASIC, vous 
pourriez vous Y essayer vous-même. Il vous faudrait bien sûr 
également de solides connaissances linguistiques et surtout une 
profonde motivation pour ce type de travail. 


Dans ce chapitre, il s’agit d’une interrogation au tac-au-tac sur 
le vocabulaire. Vous avez certainement l’habitude d’apprendre du 
vocabulaire en cachant une colonne de votre lexique. Cette méthode 
présente l’inconvénient que l’ordre des mots est toujours le même. 
Si lors de l'interrogation sur le vocabulaire un ordre différent 
est choisi et c’est certainement le cas-, vous aurez du mal à 
avoir autant de réussite "qu’à la maison". Il vous faut donc 
quelqu'un qui ait du temps à vous consacrer et qui puisse 
travailler avec vous. Cela pourrait être désormais votre CPC. Il 
sera toujours disponible pour vous assister. Vous trouverez dans 
les pages suivantes le programme nécessaire. Il est conçu d’une 
façon tellement pratique qu’il peut prendre en charge toute 
l’organisation de l’apprentissage du vocabulaire. 


Le programme dispose des fonctions suivantes: 
- entrée du vocabulaire 
- chargement du vocabulaire 
- correction du vocabulaire (avec la possibilité d’examiner 


tous les mots figurant dans la mémoire de travail ainsi que 
celle de supprimer des mots). 
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- compléter le vocabulaire (au clavier ou par un chargement 
supplémentaire). 


- apprentissage du vocabulaire (mot français - mot étranger ou 
mot étranger - mot français). 


- sauvegarde du vocabulaire 


Si 50 mots se trouvent par exemple dans la mémoire de travail de 
l'ordinateur, 50 mots seront d’abord choisis au hasard. Les mots 
pour lesquels une réponse positive a été donnée ne sont pas 
proposés une seconde fois mais les mots pour lesquels la réponse a 
été incorrecte peuvent être présentés plusieurs fois. Ensuite vient 
le tour de tous les mots qui n’ont pas encore été choisis par 
l'ordinateur. On répète enfin l'interrogation des mots pour 
lesquels une réponse incorrecte a été entrée jusqu’à ce qu’une 
réponse correcte ait été fournie au moins une fois pour chaque mot. 


Il est bien sûr également possible de mettre fin prématurément à 
l'exercice. En tout cas un taux de réussite est indiqué à la fin de 
l'exercice. 


Pour ce travail d’apprentissage, il est conseillé de sauvegarder 
séparément les différentes leçons. Vous pouvez ensuite les réunir 
avec la fonction de complément. Le programme réserve de la place en 
mémoire pour un nombre global de 1000 mots. 


Pour le travail sur disquette, une légère modification du programme 
s'impose: 


565 INPUT "Comment s’appelle la leçon ";n$ 
570 OPENIN n$ 
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L'entrée du vocabulaire s’effectue en entrant d’abord le mot 
français, suivi d’une virgule, puis le mot étranger. Exemple: 


? ilhe (ENTER) 


Il faut noter que les compléments ne peuvent être effectués qu’avec 
la fonction "compléter". Le fait d’entrer ou de charger deux fois 
du vocabulaire aurait sinon pour effet d’effacer les mots figurant 
dans la mémoire du programme. 

Le programme est par ailleurs très largement auto-explicatif. 


Le mieux est donc que vous l’essayiez tout de suite! 
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Û 


Wa 
En 


FEM I25 
CLS 
PRINT TABSFUMIZS 
FRIHT:PEIHT:PAIHT:FEINT:FE 
F 11 "Beruod Koual, 


DAC RE: 





GOSLIR ZE 
! Ab AAA, EC 
Ei=t:hzls 


FEI 

FFM Hi 
FE 
FRIHT 
PRIHT TABCES 
FRIHT'Macatnulaire 
FEIHT" entree" 
FRIHT" char 
PRINT" correct 
PEIHT" comp leter "3 TAE 
FEIHT" apprendre"; TABS 
FÉIHT" saute der 
PRIHT"F in 4 raw i 
THFLIT Votre chois " 
IF af1 OF ar 


TAB 17 "Mer" 
"Entre" :PRI 


DR DEA 


A LD OÙ JT A Be C0 PO ee mn D DD 0 
DR ELA EL ELU) 


DPF pa ne a a ue pa ma et LÛ ON TS TN Big Pr 
LA] 









CRAN EL 


Le 









44 CH à GOT : 
Er FEM 
ce FE Completer le 


FEF 
à FRIHT"'Faut-il charer du 
EUPÉ lementaire Con 





4 FRIHT:FARIHT 
4 FRINHT'"' Vous Fouvez 
1 FRIMNT'wocahnlaire 
Etes 14 chels 1415 
FEM 
FEM 
FE 
FRTHT "LES. 
FRIHT "etre 2 
PRIHT'Entrez 
FRIHT'aura ete tape, 
FEIHT' Mot francais. 
FOR izk1i TO 1444 
IHPUT di, f$cii 
IF dbéitée"£" THEM SGf 
ki=zi-1:PEINT:PAIHT"IT 4 
FRIHT"'mots dans 


d DRE EL 


“dit 


2 © 


Entrer 


D A 
DOUREN] 


eFares entre 
#,# lorsque 


1 


— 
ni 


— Frogramme de 


entrer 
EUFF Tementaires, 


mots francais et 


la memoire de tra 


“ocabhnlaire" 
IHT:FRIHT 


LAS" 


AA 0 AAA QE LAC 


: PRTHT:FETHT 


HT 


RUE 










SU: PRINT 
"4" FRIHT 
"EU: PRINT 
SE": PRINT 
PU PRINT: PRINT PRINT 





“vocabulaire 


“acabulaire 





1+4: ÉUITi GA 


maintenant c 


MiGOSUR STE 





OUT A Fi [RL 1 A Î pris 


etranaer doivent" 
eux Far une virgule." 
tout le vocabulaire" 









M: PRIHT 
mot etranger ":FEINT 


a maintenant" fÆ 1 
ail." 
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42 GOSUE SCS4: GOTO 1€ 
A4 IF i=h THEH E=  . <h Ft {Te GOQUR 26: GTA Z 
HEXT 
ISLE Eee 
FE 
FE Charger du vocabulaire 
el 
DFEHIH Œ 
FOR 12e TO 144 
IHPUT #9. db i 1: IHPUT #93, fé#éi 
- EFs-1 THEH Elzi :GOTO 624 


ue. 
1 


CLOSEIH 
FRIAT FRIHTUIT 4 4 maintenant" ik ii 





44 PEÉTHAT ru NE Ta memoire de Lrasait " 
4 COSUIES RE) 





SA FE 
PU PPT Pnepresie con us man Ta res 
1 EEM 
PRIHT"Ponsernnt 
PRIHT "ou Prefer 
FFIHT'"'tonut Es 
FEIHT TAES ZE È 
PRIHT" indiquer": T 
HE PRINT Mean ner" TE 
FRIHT:THPUT "Votre chuis 
ÿ IF ai THEH 
IF a5:1 THEH 
PRINT" beui lle 
LHPLIT M  occarot 
IHPUITMGueT Te mst 
FOR jei TO Ef 
IF dei ef THEM dé i era: GOT 8 
IF féiiuefug THEH fi i ter: GÛTO 
HET 
FRIHT : FINT"Le mot indique est introuvable" 
GOT SEE 
UE THT : FE [HT'L A cat ts Lo 4 ete effectuer, 
FETAT:TIHPLIT "Er célon Eos er 
IF ag="n" THEH CL 
IF agé"o" THEH 5 
CLS :GATO gs 
MIHOOE #1. dE, LES 
Lis dit sf 
F =k1 THEN 16414 
FOR it TO 1 
JF ché qu SOU THE TA 










irtiquer Le met. iocoprect" 
ler." 
: PL 















er Le mat" 





essdion Juste "Cri 















AU OFF 


GOT LE 
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Co d 1 
CL£S:GOTO 128 








FOIE E TO ES 
FE itki THEH 1HR 
REG PRINT Hoi M egé disent 
174 FRIHT #1: TAB € PS6 À 
ASE HEXT 
A4 FRIHT'"'Ou est" 
A FRIHT"'l'errenur FT" 


FRIHT "Entrez nn &" 
FÉTHT"'ei tout get" 
FETHT"cobpreect, ! 
FÉTHT'Le fait 
FRTHT "un &gsF 
FPETHT "mt. € 
FETHT entra à 
FRIHT'EUREE 
PRIHT"numer 
à FRINT'"'corresPondant, "PETHT 
LHPUT "Huragres Es 
IF be THPHOISTA 
FÉIHT:PEITHT "Le 
FÉTAT este Tricot 
LIHFLIT és "at 
IF a$="n" THEH 1345 
A IF agit THEN LES 
1 PRIMT" Quelle mat T'es 
3 THPUIT press om prete RS L'ON R 
FRINT:PETHT "Le mot etraen" 
THPUIT est-il faux € 
IF ag="s" THEH 1: 
4 IF ag<i"o" THEH 
FRINT"Que 1 Le 


EX | 


ii 








La 
ii 


"1 
ii 





si 4 ü 
don du" 


= 
nr 


LD C0 4 a LA La Lo Do es Di 


Ex 
Fa 
















at francais" 






















Mifgih 





AR EL ER sk 3414: GOTO 344 


PEN AFPrentissage du vocabulaire 
A FE 

A 1=G:rr=f:ff=t 

A FÜR izi TO ne ets =: HEE T i 
54 PRIHT"IT 4 a"iki: És. inc 

4 FRIHT: PRINT'Entrez une * Fo 






mot. 


- 203 - 


l'exercice, 
Fr le 


demande" 


1456 PFÉIHT"' lorsque vous voudrez interrompre" 

1464 FRIHT"1" spoice, " -PEIHT 

1474 FRIHT : PRTHT "Lorient les mots doivent-1ls etre! 

1454 PÉTHT "demandes FT" 

1494 FPEIHT:FEIHT THE silEntree!" ph] 

1564 PRIHT' Mot francais — mot etranger 

1514 FEIHT 

4 FPÉIHT "Hot etranger — mot francais" THESS 

534 PRINT :IHPUT "Votre choix Mic 

1548 IF cé OR ct THEH 14FA FLSE CLS 

FA = TT RHTEE 1 41 

BEA TE ou et THE 1664 

cr es sit 

14 T4 gra ef 

1534 IE LEA THEH 15564 

É FOR j=1 TA ET 

IF qiitzi THEH 1€ 

4 4zi : GOSUE 21164: (s 

11 HET 3 

Hi =f 

FOR ii TO ET 

IF ME 11 THEH 16 
1 : L= 











iTAEL SE at" 


Ti 


“Un 
pe 
e E 






HET ji 
IF Hizi THEH 164 

4 PRINT 'MOUS avez maintenant ref ordi 
4 PFIHT!"'anu roi SN tous 
FPRINT:FÉIHT"EUN ili"mots 
FRINT rriftre ET DE 
FEIHT MESRINE " :PRIMT : FRIHT 
PRIHT'£Sit en Pourcentage 2" PRIHT 
PRINT: LISTHO UAHE, Her ETAT 

4 PRINT'E dés reponses etaient correctes" 
34 PÉIHT"'et" 

4 PRINT: LISIHG MHHK, #4" FETE 15 
PRINT" des refons 3 
FRIHT:PRIHT: IF f# Fe 
FRIHT'MOUS devez Ace encore tr 





5, M: FRIHT 


ne rides. " 





















“ailler " PRTHT' un PF 


IF FétiGrr THEN 186 

ESA PRINT est us _. resiltat., 
A GOSLIR ESA 

EF4 REM 

FENM Sauveñarde du vocabulaire 

FEN 

PRIHT'"' Comment doit s'aFFeler la lecon'" 
IHPUIT"'a sauvegarder "ing: PRINT 
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1 9 D LD 0 D D DD 0 
de nt D C0 4 ON AE GO FO 
SD © 0 9 0 D D D 


x 
aa, 






Fe Pan Po) Dai FD Pa) Pan Pa et et pa a et a et 


à Fi 





2) Fo PQ Fa Ps Pan Pa Fa Fe Pa Pr 


à FRINT"eSF 


à PRINT d 


à PRINT: PRINT: FRTHT TÉ 


CPEHOUT n$ 
FOR i1=i TO El 
PRIHT #3, d$6i:PRIHT #3 f#c 1: 
HET 1 : CLOSEQOUT 

CLS: GOT 129 

F'ENM 

FEM Fin du Frosrarmme 

FET 

FRIHT"'Ete:- vous 
FRIHT'"' les informations comme il Com 
FRIHT'Ei ce m'est Pas le 
PRINT "Em lement um ‘oh 


ace suffit," 





sur de bien avoir sauvegarde 
i mt " 








entrez" 





diner, la touche" 





IHFLIT 3% 

IF a$='"oh" THEH CLS: GOTO 136415 

FRIHT:PARIHT:FAIHT" Al revoir" 

PÉIHT:FEINT Mons Pouvez ma obtenant me débit ectrer" 
EHC: 

FE 


5 FER SF Tbesteooa tr 


F'EM 


34 LOCATE #4 


IF ce THEH EF 

Huit Mi: INPUT F$ 

IF ph=f$iut THEH SAGE ELSE ET 
PRINT fou hi" "3: TMPUT F5 

IF pe dhe ui THEH SIA 















atiuste" 

psp out et GOT ERA 

FÉIMT:IF p'ba Et THEM COLE: GOT TPS 
PRTAT:PRTAT TARA ME ane te PPT ie 4 1e 
FÉTAT:PEÉINT:PETHT TARBES" Ta homme reponse est 5" 
PRIHT:IF cei THEH PRINT TAES STE ua 

IF ce THEH FARIHT TAES A dgé nu 

GOSLIE E: RETUEH 

FE M 

FEN SF Attendre 

FE 

LOCATE F5 






14 FRINT'FraPrez une touche ES, V,F" 





G xH=IHÉETS 


IF x$="" THEH ZSEG 
CLS: RETUFRH 
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Liste de variables: 


a = réponse au menu 
a$ = chaîne de caractères de réponse (0o/n) 


b = variable auxiliaire et index (section de programme 
"corrections") 


c = réponse au menu dans la section de programme "apprendre" 
d$(i) = mot français 


e = valeur initiale de la boucle (supérieure à 1 si l’on complète 
le vocabulaire) 


f$(i) = mot étranger 

ff = nombre de réponses fausses 

fw$ = mot incorrect (section de programme "corrections") 
h = variable auxiliaire qui indique si l’écran est plein 


hi = variable auxiliaire (égale 1 s’il manque encore des réponses 
justes) 


i = index de comptage 


index de comptage 


nm 
Il 


ki = nombre de mots dans la mémoire de travail 
k2 = début de la boucle 
k3 = fin de la boucle 


1 = nombre total de réponses 
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$ = nom de la leçon à sauvegarder 
p$ = entrée dans le sous-programme "interrogation" 


q(i) = variable auxiliaire (égale O si un mot n’a pas encore été 
demandé, sinon égale 1) 


r = nombre de réponses justes 
rw$ = mot correct (section de programme "corrections") 


w(i) = variable auxiliaire (égale O si un mot n’a pas encore reçu 
de réponse correcte, sinon égale 1) 


y = index du mot actuellement demandé 


Description du programme: 


Lignes 10-60 : Titre 

Ligne 70 : Réservation de place en mémoire 

Ligne 80 : Affectation de valeurs de départ aux variables 

Lignes 90-240 : Menu et branchements dans le programme 

Lignes 250-350 : Section de programme "compléter le vocabulaire" 
On peut soit charger du vocabulaire supplémentaire 
(saut dans le programme et définition de la 
variable e), soit entrer du vocabulaire 


supplémentaire (modification des variables Kkl 
et h). 


250% 


Lignes 360-520 : 


Lignes 530-650 : 


Lignes 660-1370 


Section de programme "entrée du vocabulaire" 
Vous pouvez entrer jusqu’à 1000 mots. Après 
l'entrée de 15 mots, un saut est chaque fois 
effectué au sous-programme "attendre". 


Section de programme "chargement du vocabulaire" 
Si le vocabulaire chargé est un vocabulaire 
supplémentaire, e égale kl+1. 


:690-770 : Menu 

780-910 : Correction, en entrant le mot écrit de 
façon incorrect et le mot correct. La 
comparaison de l’entrée "mot 
incorrect" avec tous les mots stockés 
dans la mémoire de travail s'effectue 
dans la boucle de programme des lignes 
810-840. 

920-1370 : Examen et correction ou suppression 
des mots. 
La sortie des mots (lignes 1040-1080) 
se fait dans une fenêtre de texte 
spécialement définie (voir ligne 920). 
Pour empêcher une fuite vers le haut 
de la fenêtre de sortie, on affiche 
jamais que 10 mots à la fois (voir les 
valeurs initiale et finale de la 
boucle à la ligne 1040 première 
définition en ligne 930- et leur 
nouvelle définition en ligne 1370). 
Les lignes 1090-1360 servent à 
indiquer le mode  d’emploi à 
l'utilisateur et à corriger les mots. 
Ce n’est qu’une fois que les mots 
sortis sont corrects (entrée 0) que 
d'autre mots à examiner sont sortis 
(voir ligne 1370). 
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Sinon, la même sortie se répète 
(naturellement en tenant compte 
d'éventuelles corrections, voir ligne 
1360). 

En lignes 950-1020, lignes qui ne sont 
atteintes qu'après la sortie de tous 
les mots (voir ligne 940), on teste si 
des mots doivent être supprimés (d$(i) 
est alors égal à " "}). Si c’est le 
cas, les indices des mots suivants 
sont modifiés en conséquence (voir 
boucle de programme en lignes 980- 
1010). 

En ligne 1030 se termine cette section 
de programme, par un retour au menu. 


Lignes 1380-1860 :Section de programme "apprendre le vocabulaire" 

1410-1420 :Des valeurs de départ sont affectées 
aux variables 

1430-1540 :Explications et menu 

1550-1590 :Le nombre aléatoire produit en ligne 
1550 (entre 1 et kl) est utilisé kl 
fois pour déterminer l'index pour 
l'interrogation sur le vocabulaire 
(sous-programme en lignes 2100- 
2260). Si une interrogation 
correspondante a déjà été effectuée, 
on prend le nombre aléatoire suivant 
(voir ligne 1560). 

1600-1630 :On détermine les indices des mots 
qui n’ont pas encore été demandés 

1640-1700 :Tant que certains mots reçoivent des 
réponses incorrectes (voir grandeur 
auxiliaire hi), les indices 
correspondants servent de valeurs de 
départ pour le sous-programme 
"interrogation" 

1710-1860 :Sortie des résultats de l’exercice 
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Lignes 1870-1960 : 


Lignes 1970-2090 : 


Lignes 2100-2260 : 


Lignes 2270-2340 : 


Section de programme "sauvegarde du vocabulaire" 
Tous les mots présents dans la mémoire de 
travail sont sauvegardés (comme pour les 
programmes précédents, il est ici aussi possible 
d'employer un lecteur de disquette) 


Section de programme "fin du programme" 

Il est encore possible de sauvegarder ici des 
mots car on oublie facilement de le faire après 
un exercice réussi 


Sous-programme "interrogation" 

Après que l’index y ait été déterminé dans la 
section de programme "apprendre le vocabulaire", 
une entrée correspondante est ici demandée. Les 
réponses justes et fausses sont enregistrées. 


Sous-programme "attendre" 
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8.6 Le puits à idées 


- problèmes mathématiques de tous ordres 

- équations de réaction et calcul stoechiométrique 

- lois de physique 

- représentations optiques 

- programmation de dictionnaires 

- entraînement à l’orthographe 

- banque de données de littérature 

- analyse de poèmes (voir également le chapitre 8.5) 
- stocker et consulter des évènements historiques 

- représentation de processus biologiques de croissance 
- musique d’après partition 


- et bien d’autres choses encore 
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9. Jouer avec votre CPC 


9.1 Remarque préalable 


Il y a des gens qui n’utilisent leur ordinateur que pour jouer. 
Pour eux, le présent ouvrage est bien sûr idéal puisqu'il présente 
également un certain nombre d’applications "sérieuses" (bien que 
chacun puisse avoir sa définition du "sérieux"). Néammoins tel ou 
tel petit jeu peut se révéler très intéressant, surtout si on a 
soi-même écrit le programme correspondant et qu’on peut ainsi sans 
problème insérer des variantes supplémentaires dans le déroulement 
du jeu. Ce qui est dommage, c’est lorsque l’ordinateur est rabaissé 
au niveau d’un simple instrument de jeu et que ses autres 
possibilités restent inutilisées. Mais bien entendu, c’est à chacun 
de savoir ce qu’il veut faire de sa machine. 


Ce chapitre vous présente deux programmes de jeu relativement 
simples qui renferment cependant deux éléments essentiels de la 
programmation des jeux, la représentation de déplacements et la 
simulation de "phases de réflexion". Le CPC offre cependant bien 
d’autres possibilités pour la programmation des jeux électroniques. 
Vous pourriez par exemple examiner un jour le jeu de caractères 
complet de votre CPC avec la fonction CHRS(i), en faisant varier la 
valeur de i de 32 à 255. Peu importe au fond que ce soit un petit 
homme, un point ou une balle qui parcourt l'écran. Vous êtes donc 
également invité, dans ce dernier chapitre, à modifier ou compléter 
les programmes proposés ou à vous en inspirer tout simplement pour 
réaliser d’autres programmes. 
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9.2 Tennis vidéo 


Il y a dix ans, c'était la grande mode des jeux télé. On pouvait et 
on peut entre autre jouer ainsi au "tennis". Un tel programme peut 
être réalisé vraiment facilement. 


Le principe consiste à calculer dans le déroulement du programme 
les coordonnées d’un point qui sera marqué alors que le point 
précédent sera effacé. Ainsi est créée l’illusion du mouvement. Si 
le point atteint la limite droite de l’écran, il est relancé si la 
ligne pouvant être déplacée par le joueur (la raquette) rencontre 
le point (la balle). Sinon, une nouvelle balle sera jouée. 


La raquette est déplacée au moyen des touches curseur. Les 
"touchés" et "ratés" sont additionnés et affichés. L'utilisateur 
peut choisir librement la vitesse de la "balle" et de la "raquette" 
ainsi que la largeur de la "raquette", c’est-à-dire qu’il peut 
choisir lui-même le niveau de difficulté. Il peut en outre décider 
si la vitesse de la balle doit varier. 


Avec quelques modifications, il est possible d’employer les 
joysticks pour diriger la raquette. Si vous avez deux joysticks, 
vous pourriez également introduire dans le jeu une seconde 
"raquette". Dans ce cas, il vous faudrait toutefois modifier les 
règles du jeu et l’affichage des points. Vous voyez donc que de 
nombreuses modifications peuvent être apportées à un tel programme 
pour qu’il ne devienne jamais ennuyeux. Amusez-vous bien! 









Programme: 

1 FEN I£d 

cA CLS 

34 PRINT "IE — leu de balle Ctennis à developper" 
44 FRINT:FRINT:FRIHT:FEIHT:FAIHT 

SA PRINT THE GS 'Bernd Foual, 1385" 

64 GÜSUE 574 

FA FEINT'"'Entree de Farametres 2 "PRINT: FRIHT 

E4 FEINHT'"'Vitezsse de la balle" 

34 IHFUT'E Valeur entre 14 et 361 Mira 

144 IF basi4 OR bas THEH GE 

114 FRINT:FEIHT"Cette vitesse doit-elle osciller" 
124 FEINT"'rendant le déroulement" 

154 INPUT" du jeu on "iag 

14 IF ag$="n" THEH ze: ce LS 

154 IF adz"o" THEH zeha-2:bazha#s.d: GOT 16 

164 GOT 11 
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FRIHT:FPRIHT Longueur de la ‘raquette 
INPUT" Valeur entre 164 et 1445 "isl 
IF 51214 OF 21:14 THEH 1564 
FRIHT:FPRIHT"'Mitesse de la raduet 
INPUT Valeur. ent à et Si "isa 

IF 2325 ÜR 29:55 THEH 214 

FRIHT:FRIHT:FRIHT"'Le jeu est interromPu en aPFusant" 
FFIHT'"deux fois sur la touche ESC." 


I Or OU —] 


1 
1 
1 


r 


ü 








D 


+1: DEAN 6,399, 1: DEAN 68,593, 1 


AË+E LE 






a, 4: E=b+ 


THEH FRIHT CHR test ls GOSUE Ed 





LAT IA SEA AL F4 
RRENEZ f ITU dit 
CE ect le GOSUIE STE PLOT ax, an, A: GOT SEA 
sg PLIT ac, 

a FLOT 
SA UTC 













LOCATE 2 à PRI 
=ROLIHDE FH 
25 AHD 4 


FEM Sous-programme attendre 
SA LOCATE 5.2 

294 FRIHT'"'Fralhrez une touche SVP, 
SE = IHEET"S 
SE IF Het THEN 64 
CLS :FETURH 

SFEEC ÉEY 14,4 :EHC 








“Side 


Liste de variables: 


a = limite inférieure de la coordonnée y pour la raquette 
a$ = chaîne de réponse (0/n) 

ax = "ancienne" coordonnée x de la balle 

ay = "ancienne" coordonnée y de la balle 

b = limite supérieure de la coordonnée y pour la raquette 
bg = vitesse de la balle 

d = nombre de balles manquées 

nx = "nouvelle" coordonnée x de la balle 

ny = "nouvelle" coordonnée y de la balle 

s$ = valeur de la touche appuyée pour la commande de la raquette 
sg = vitesse de la raquette 

sl = longueur de la raquette 


t = nombre de balles touchées 


xv = vitesse de déplacement de la balle dans la direction x 
yv = vitesse de déplacement de la balle dans la direction y 
z = variable auxiliaire (égale bg/2 si la vitesse de la balle, 


sinon égale 0) 
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Description du programme: 


Lignes 10-60 : 


Lignes 70-250 : 


Lignes 260-270 : 


Titre 


Entrée des paramètres et sortie d’une explicaton 
du mode d'emploi du programme. Les limites 
imposées pour les valeurs demandées ont été 
choisies simplement en fonction du critère d’un 
bon déroulement du jeu. Les calculs en ligne 150 
servent à déterminer la vitesse de déplacement 
variant de façon aléatoire en ligne 530. 


Les touches de commande du curseur se voient 
affecter des valeurs. Lorsqu'on appuie sur Ja 
touche "curseur haut", un "h" (pour haut) sera 
renvoyé et un "b" (comme bas) pour la touche 
"curseur bas". 


Ligne 280 : De nouvelles valeurs sont fixées pour la vitesse de 
répétition d’une touche restant enfoncée, de façon à 
augmenter la mobilité de la raquette 


Ligne 290 : Dessin du cadre de jeu 


Ligne 300 : Calcul des coordonnées limites (direction y) pour la 
raquette 


Ligne 310 : Dessin de la raquette 


Ligne 320 : Saut 


au sous-programme (ligne 510) pour déterminer la 


vitesse de déplacement de la balle 


Ligne 330 : Les coordonnées de départ de la balle sont calculées et 
la balle est dessinée directement (saut à la ligne 490) 
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Lignes 340-350 : 


Lignes 360-380 : 


La nouvelle position de la balle est déterminée 
(ancienne position + vitesse de déplacement), 
après que l’ancienne position ait été placée dans 
les tableaux ax et ay 


Si lors du changement de position la limite 
supérieure, inférieure ou gauche est atteinte ou 
dépassée, on prend comme coordonnée maximale une 
valeur directement à côté du bord et la direction 
du déplacement est inversée (yv = -yv ou xv = -Xv) 


Ligne 390 : Après que la touche ESC ait été appuyée par deux fois, 
on saute au sous-programme (ligne 630) qui termine le 
jeu et le programme 


Lignes 400-420 : 


La valeur de la touche enfoncée est renvoyée. Le 
fait d'appuyer sur la touche "curseur haut" a pour 
effet de faire tracer une ligne "sans couleur" 
entre la position la plus basse de la raquette et 
le bas de la nouvelle position de la raquette 
(a=a+sg), en tenant bien sûr compte de la vitesse 
indiquée pour la raquette. Une ligne (colorée) est 
également tracée entre le bas et le haut (b=b+sg) 
de la nouvelle position de la raquette. On procède 
de même pour la touche "curseur bas”. 


Ligne 430 : Si le point se déplace de la droite vers la gauche 
(c’est donc que la balle est renvoyée), le point peut 
être dessiné directement (saut à la ligne 480) 


Lignes 440-470 : 


On teste si la balle a rencontré la raquette. Le 
problème ne se pose pas si la limite droite de 
l'écran n’a pas encore été atteinte (ligne 440). 
Si elle est atteinte, les coordonnées nx et ny 
sont fixées en ligne 450 de façon à ce qu’elles 
figurent sur la ligne allant de la raquette à la 
coordonnée x 620 (voyez le schéma à la suite de 
cette description). 
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Si la coordonnée ny se trouve alors à l’intérieur 
de l'intervalle de limites a et b, une "touche" a 
été réussie (bip, t=t+1). On détermine alors dans 
le sous-programme (ligne 510) de nouvelles 
vitesses de déplacement et la balle est renvoyée 
(xv = -xv). Si ny ne figure pas à l’intérieur de 
l'intervalle (manqué), une nouvelle balle est 
lancée, avec de nouvelles vitesses de déplacement 
(à partir de la ligne 330), après qu’un point sans 
couleur ait été dessiné dans l’ancienne position. 


Ligne 480 : Suppression de "l’ancien" point 
Ligne 490 : Dessin du "nouveau" point 
Ligne 500 : Retour à la ligne 340 pour continuer le jeu 


Lignes 510-560 : Sous-programme de sortie du taux de réussite et de 
détermination des vitesses de déplacement de la 
balle. En ligne 530, les valeurs pour xv peuvent 
varier de 25% en plus ou en moins de la vitesse de 
balle indiquée, si cela a été voulu ainsi (lignes 
110-150). Pour yv, les valeurs sont tirées au 
hasard. Elles sont comprises entre -10 et -5 ou 
entre 5 et 10. 


Lignes 570-620 : Sous-programme "attendre" 


Ligne 630 : La vitesse de répétition d’une touche maintenue appuyée 
revient à la "normale" et le programme est terminé. 
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Schéma décrivant comment la coordonnée ny est déterminée en ligne 
450: 


VV 





recherché: yk 


Yv yk 
tan@= — et tanC= — 
XV 620-ax 
donc: 
yv__yk 
xv 620-ax 
yv 
yk = — * (620-ax) 
XV 


on obtient pour ny: 
ny = ay + yk = ay + yv / xv * (20 - ax) 
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9.3 Puissance quatre 





Que faites-vous si vous voulez jouer à un jeu pour deux personnes? 
La réponse est simple: vous cherchez un partenaire de jeu. Mais que 
faites-vous si personne ne veut jouer avec vous? Il n’y de solution 
simple à cette question que pour ceux qui possèdent un ordinateur: 
vous chargez un programme et l’ordinateur remplacera le partenaire 
de jeu manquant. 


Mais comment peut-on arriver à ce que l'ordinateur "réfléchisse", 
comme il convient pour un partenaire de jeu? Il vous faut d’abord 
lui expliquer le terrain de jeu et les règles du jeu. Dans 
"Puissance quatre", le terrain se compose d’une grille de 8 cases 
sur 6. Le but du jeu est de constituer une ligne de quatre jetons 
(horizontale, verticale ou en diagonale). Vos jetons doivent bien 
sûr être distingués de ceux de votre partenaire de jeu. 


Pour obtenir une force moyenne de jeu, il suffit de faire effectuer 
par votre ordinateur les réflexions suivantes: 


1) Puis-je (moi, l’ordinateur) gagner en un coup? 


2) Puis-je (moi, l’ordinateur) au coup suivant empêcher que mon 
adversaire gagne la partie? 


Il est en outre possible d’intégrer des variantes de tactique de 
jeu dans le déroulement du programme. Pour "Puissance quatre", une 
tactique, qui mène à la victoire, pourrait consister à essayer de 
constituer une ligne de trois jetons qui ne soit limitée d’aucun 
côté par des jetons adverses. Dans les différentes sections du 
programme, il faudrait alors intégrer des instructions 
supplémentaires qui commenceraient par 


IF h=2 AND … THEN 
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Dans le programme suivant, nous nous limitons toutefois aux deux 
premières étapes de réflexion indiquées. Si aucune des deux 
propositions n’est vérifiée, l'ordinateur ne se livre pas à une 
réflexion tactique mais fait jouer le générateur de hasard. On ne 
tient donc pas compte des effets du coup qui viendra après le 
prochain coup. 


Un mot concernant la technique de programmation: 


L'ordinateur réfléchit en couvrant toute la surface de jeu, c’'est- 
à-dire qu'il peut arriver que soient examinés un très grand nombre 
de cases qui n’ont encore aucune importance pour le jeu. Une autre 
technique de programmation, qui réduirait considérablement les 
temps de calcul dans la phase initiale du jeu, consisterait à 
limiter la réflexion aux cases occupées. Les différentes 
instructions IF … THEN resteraient inchangées dans leur principe. 


Il ne nous reste plus qu’à vous souhaiter beaucoup de réussite dans 
le combat homme contre machine. Faites attention: votre ordinateur 
ne manquera jamais de remarquer si trois jetons figurent sur une 
ligne... 
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Programme: 


FEN 125 
CLS 
PEIHT THE SOMTET Puissance quatre" 
A PFEINT:FEIHT:FEINT:FEIMT : PRINT: 
GA PEIHNT THES TE Bet HonaTt.s 15 
SE GOSUE 1184 

4 FRIHT"'EFeales du jeu 2" 
SA PRIHT'Le Lu du deu e Placer Quatre" 
Ê FÉTAT M ietons sur une ligne Feu imPorte que 
FRIHT'Ce suit Por ont a Lenent. Mer tea lement" 
FRTHT "Eu gen di a cn 
FRIHT'Le train € 
FRTHT cases gui 6 
FAIT! OT a 5, ; 
ER TT nt Tes rm détour 1a : 
SA PRINT us denesr entrer on um Jet 

FÉJIHT "tombera dusqu'a ce Aqu'i nb St un! 

: FÉIHT autre, déto u dans TANT EE 1 
à FRIHT 
PRINT MEL CS MRE 
FÉTHT THE 
214 FEINT'EL 4 
FH TEA 
2eA PRINT THEC EF CHERE ZT CHR TOT  CHRSE EG 0: PEÉTHT 
PRTHTCTHELIT "eut QUE Cofencer Ce "ia 
di IF agi" ANT a$: et THEM ESA 
en CLS: FOR ie TO F PRIUT" LS 
LéA IF ie THEM FEIHT CHRGE dd GOT EE 
Al CHEGE TET 
FOR et TO SIL :PAIHT CHEMHE 1 Ft HET di 
IF ier THEH FEÉTHT CHR LE ee GOT 1 
SAC PRTHT CHERE TEE 
314 FETHT:FETHT:HE#T à 

24 ist 
Ann FAR er TO 19 STEP © 
44 COCATE ii FRINT CHE 1 4 
SA LOCATE is i+i:PÉINHT CHRgE 144 
HET 
PA IF i=5 THEH 42256: GOT 564 
FOR izF TO 31 STEF 4 
394 FOR i=1 TO 16 STEF 3 
4 LOCATE ii i:FRINHT CHRge 159 
414 LOCATE ï:1+1:FARIHT CHRgé 1495 
424 LOCATE ji, i+2: PRINT CHRgé 14 
434 HEXT i:LUOICATE ii: FRINT CHE ISA MMEST à 
44 FRIHT" MicFÜR ie1 TO & 

4564 PRINT ji" "5 


La Fu 
RAR AR EAN 





Ex 
D 





RTIHT:PAIHT 
























ii Dm 
D Tin 


JT Z 
= Re 
—" _ ‘= 





= 





D) LT 2 


Jet 


Dee pe ma pu pu pu pe pe pe pes LU 
La 


1: 
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“ei, Aie: MENT i 
Fag="n" THEN 2=ROUHDé RHDÆ4+42, cac 145: GOSUE 1980: 
DSUE 1115 
INPUT" otre choix "is 

THEM 
IE 188%:sbés. ie: GOSUE 1116 
i=1 TO & 
TO & STEF -1 
. if THEH EG 
THEN 550 

=A THEN 618 














FOI: 










eue) THEN gs): GOSUE 1454: 06 












" & fé 4 
DUREE si sl ET ee did el TM pis IT es ct si 
ET) 1 Ga 


EE FÜR i=t TUE 

sbisel:shs 
FOR izskbi TO 
1 IF Fzl THEH 
1. dite THEH ilzi ELSE Heh+i 






,j)=@ THEH il=i ELSE hehti 
1d<1 THEM == 






es AO ré id, if se oil: 
ni 


IE 1114: 





.i-1iei THEH ri 








x L'GOTO ét 
Fi FO: i=i TI 

Fag FÜR is TO 

PÉ iP=itiFsichef 

Fr IF Fei THEM SEE 

SCIE cotir.iriet THEH ipisip:ipisir ELSE héh4l 
34 GOTO 16 


IF sHCiP,. ire THEH iPi=iF:iFlsir ELSE Hheh+i 

IF iFrii+s THEM iF=iPl+ii iFziF+l: GOTO FA 

IF F=f AND He AND FrCip1. Pi oz AND FéiFl. iFi-1iei T 
ESP: GOSUE 1E IE 1114: C0OTO 16 

TF pel AHO h À Cri. iris AND rit. itt-tiet T 
CH rés. id sic ss. 1 A: GOT 144 

44 MEXT i 

HO MEMT ji 

FOR i=d TO € 
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AN 
si 


FOR iz1 TA 3 

iPzi:jipP=i:h=f 

IF F=1i THEH 924 

IF caiiPl.iProst THEH ipisir:iFlzil ELSE Hh=h+i 

GOTO 334 

IF shCiF.iFriï=A THEM iFpizip:iPisiF ELSE H=ht+i 

IF iri-3 THEH iF=il-1:jipzip+1:GOTO 534 

IF F=A AHC Hh=3 AND réiPri. ir15=6 AND FéiPl.iFPi-1iel T 
sirl'GOSUE 1454: GOSUB 1114: GOT0 1464 


Ce D AA ECC ELA ELU REX 


TT 
Fa 








0 D T'D L'DD' OLD D OMN 
TT M AN M B 9 Po me RQ D O0 


[a ÏF F=1 AND HS AMC FCiP1. iFlieg ANT réirl, iPi-1izi T 
H ris, il cos, il 4: GOT 1644 
A HEXT 

MEXT 1 


IF p=i THEH F=G:GOSUE 1114: GOTO 4ff 
FOR je TO Sac i)e@iMEXT i:l=f 













44 1=1+1: THEH 1455 
A1 J=ROUNDE RHD#E+ F1, St: GOTO 1434 
AE THEM élizl 
(er | 5] 
F4 
ASE FRINHT'Vous avez Gaïne":GOTO 1474 
AE 4: PRINT "J'ai Gaïne" 
GA EHC 
AA FOR aizi TO 6 
SA OIF Frs, itef THEM rie, jf: ae 
AO OMEST GIF case THEM Far ELSE 1444 


z=F: FOR 1? TO 17 STEF 
z=z-1:k=f 
IF ris 







1 AHO ris:z+1z1 THEH FETUREH 

LOCATE +5,31: PRINT CHAR ca ii CHRSE ci CHE Ca 
LOCATE 245+5,1+41:PRIHT CHRgic CHE cd 0 CHERE cd 
IF ris, ,ziz 9 AHC kzä THEH FEH G:kzi:GOTO 1144 
FEH 1'HEXT i:FETUERH 

FEM ©F attendre 

LOCATE FES 

FRINHT'"'FraFrez une touche SMF, OU" 

“= INEE"S 

IF x$="" THEM 1214 

1254 CLS :RETUEFH 







ED 00 -J D LT BR Lo Di 


,: = 
= 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
Î 
1 
l 
1 
Il 
1 
1 
1 
1 
1 
1 
1 
1 


G] 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
£ 


DD D D 0 © D mo SO 


4 
=! 
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Liste de variables: 


a$ = chaîne de caractères de réponse (o/n) 


cd = dessin du jeton, expression numérique pour le dessin des 
jetons dans le sous-programme en lignes 1110-1170 


co(i,j) = tableau de la grille (i pour la colonne et j pour la 
ligne), 1 pour occupé et 0 pour libre 


h = variable de comptage pour le nombre de jetons sur une ligne 
i = index de comptage 

il = index de colonne pour une colonne non occupée 

ip = index de colonne dans l’examen des diagonales 


ipl = index de colonne dans l’examen des diagonales pour une case 
non occupée 


j = index de comptage 
jp = index de ligne dans l’examen des diagonales 


jpl = index de ligne dans l’examen des diagonales pour une case non 
occupée 


k = variable auxiliaire dans le sous-programme en lignes 1110-1170 
1 = index de comptage pour la valeur de la colonne à tester 


p = variable auxiliaire qui indique laquelle des étapes de 
réflexion est en train d’être exécutée 


r(i,j) = tableau de la grille (i pour la colonne et j pour la 
ligne), 1 pour occupé et 0 pour libre 


- 225 - 


s,s(i) = valeur de colonne choisie ou calculée ou déterminée au 
hasard 


sb(i,j) = tableau de la grille (i pour la colonne et j pour la 
ligne), 1 pour occupé et 0 pour Libre 


sb1l = limite inférieure d’une boucle de programme 
sb2 = limite supérieure d’une boucle de programme 


z = index de ligne dans le sous-programme en lignes 1110-1170 


Description du programme: 


Lignes 10-60 : Titre 


Lignes 70-240 : Sortie des règles du jeu et questions concernant 
le début du jeu 


Lignes 250-460 : Le terrain de jeu est dessiné. Les cases de la 
grille de ligne O sont en outre fixées sur 1 pour 
indiquer à l'ordinateur qu’un jeton ne peut être 
placé plus bas que la première ligne. 


Ligne 470 : Un nombre aléatoire entre 3 et 6 est formé si 
l'ordinateur doit commencer le jeu. Les cases 
correspondantes sont en outre occupées et le jeton est 
dessiné. 


Lignes 480-500 : Choix de la colonne par l'utilisateur du 


programme, occupation de la case et dessin du 
jeton 
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Lignes 510-1040 : L'ordinateur réfléchit 
Cette section de programme est d’abord parcourue 
avec p=0, c’est-à-dire que l'ordinateur examine 
s’il peut mettre fin au jeu en gagnant. Si ce 
n'est pas le cas, un parcours est effectué avec 
p=1l, c’est-à-dire que l'ordinateur teste si le 
nombre aléatoire formé en ligne 1010 ne pourrait 
pas avoir pour conséquence de faire gagner 
l'adversaire. Ce nombre aléatoire n'est utilisé 
par l'ordinateur pour jouer (ligne 980) que si 
pendant le parcours on n’a pas sauté à la ligne 
1000 (test d’un nouveau nombre). On effectue 
toujours un saut à la ligne 1000 lorsque le choix 
d’un nombre ou d’une colonne entraînerait la 
défaite de l’ordinateur. Un tel saut entraîne en 
même temps une remise à zéro des cases r(s,jl) et 
co(s,jl) occupées en ligne 1030 pour effectuer 
les tests. Au maximum, les 8 colonnes possibles 
seront essayées (lignes 1000-1020, seul le 
premier nombre est tiré au hasard). Après 8 
parcours sans succès, l’ordinateur abandonne et 
saute à la fin du programme (avec sortie d’un 
commentaire en ligne 1050), c’est-à-dire que 
l'utilisateur du programme devra parfois se 
demander pourquoi il a gagné. 
On peut distinguer les sections de programme 
suivantes: 
510-610 : Examen des verticales 
620-730 : Examen des horizontales 
740-850 : Examen des diagonales allant d’en bas 
à gauche à en haut à droite 
860-970 : Examen des diagonales allant d’en bas 
à droite à en haut à gauche 


-227 - 


980-1040 : Dessin d’un jeton et saut au choix de 
l'adversaire si un parcours a été 
effectué avec succès, formation de 
nombres de test, occupation-test des 
cases r(s,jl) et co(s,jl) et retour à 
la ligne 510 


Lignes 1050-1060 : Commentaire sur le résultat du jeu 

Ligne 1070 : Fin du programme 

Lignes 1080-1100 :Sous-programme pour occuper la case r(s.,j) en 
fonction de la colonne s sélectionnée. Si 6 
jetons figurent déjà dans la colonne, un retour 
est effectué pour un nouveau choix (la variable 
cd indiquant si c’est  l’ordinateur ou 
l'utilisateur du jeu qui a fait ce choix). 


Lignes 1110-1170 :Sous-programme de dessin d’un jeton 


Lignes 1180-1230 :Sous-programme "attendre" 
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9.4 Le puits à idées 


- Jeux de damiers, comme les dames, la marelle ou les échecs 
- Jeux de cartes comme la belote, les tarots, etc. 

- Jeux de dés 

- Scrabble (marque déposée) 

- Monopoly (marque déposée) et autres jeux de stratégie 

- Jeux de labyrinthes 

- Bataille navale 

- Alunissage 

- Jeux d’envahisseurs de toutes sortes 


- et bien d’autres choses encore 
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9.5 La chenille : 


Présentation : 


Pour conclure cette série de programmes basics, voici le listing 
d’un jeu en langage machine. 


Ce langage qui effraie les débutants est quand même accessible à 
toutes les personnes qui maîtrisent le basic. 


Nous espèrons que cet exemple de programmation ludique vous aidera 
à pénétrer dans le monde du langage machine. 
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Programme : 


; 1 ZE CHENILLE. 

5 (C5 1985 MICRO APPLICATION -PS- 
0FG 3200 
ENT DEF 
EAU Sa 


ERERK 


; Cefinition 


SETMOCE 
MIHCEH 
WIHDOM 
CLY 
PRINT 
RCCHAF: 
SETRO NM 
SETCOL 
SETFEH 
SETIHK 
KMRESET 


WAITCHAR 
REACCHAF: 


TESTKEY 
SCRESET 
SDAMPLI 
QUEUE 






SORELEAS 


EG 
EG 
EGQU 
EG] 
EG 
EAU 
EG! 
EL 
EG 
EG 
EG 
EL 
EQU 
EG 
EGLI 
EAU 
EGLI 
EG 


à Lefinition 


GROS 


EG 


LONGUEUR EG 


IHKE 
INK1 
INK2 
IHK3 


à Definition des 


A# 
NIVEAU 
TETE 
QUEUE 
C'IGERE 
DIRECT 
SEELC 
SCÛRE 
HISCORE 
VITESSE 
NEFRUIT 
COORD 


5 


4 
DEF 


EG 
EG 
EGQU 
EG 


DEFE: 
CEFU 
DEFUW 
C'EFE 
CEFE 
C'EFU 
CEFU 
CEFS 
CEFE 
DEFE 
DEFU 


CALL 
CALL 
CALL 
CALL 


#ECGE 
#EB6E 
#EBE4 
#EBEC 
#BES5SA 
#BESD 
#GETZ 
#EB6F 





Les in 
TM 


nme Mi 


La] 


variables, 


INITP 
INITJIEU 
AFWIND 1 
HELP 


des vecteurs utilises. 
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le est 
un moniteur, 





nd un caractere, 
clavier. 
touche. 








‘A fe in 
iFroduit un SON, 


iGrossissement de digestion. 
iTaille de la chenille. 


: Encre 4: noire. 

iEncre 1: turquoise Pastel, 
Encre Z: Rouge vif. 

Encre 3: vert vif, 


iHiveau de jeux, 
‘Adresse de la tete, 
iAdresse de la queue. 
ibDuree de la digestion, 
iDirection. 

iNombre aleatoire 


iHombre de fruits, 
:Coordonnees de la tete. 


iScore = & , Hiveau = 1, 
iAffiche la fenetre 1, 
Affiche les instructions. 


char 


3ee 


DANS 


JEUL@ 


JEUL 1 


IELO 
Boucle 


: Entree: 
i Sortie: 








CALL IHITJEL iScore = 4 , Hiveau = 1. 

CALL AFHIHD1 iAffiche la fenetre 1. 

CALL AFTAE iAffiche le tableau de jeux, 
CALL READY idoueur Pret 7 

LC A,2 iActive la fenetre 2. 

CALL WHINDOW 

LD HL , BUFFER Adresse de debut de la chenille, 
LD € QUEUE »,HL iFixe l'adresse de la Queue. 
LC BC, 14#256+18 iB = ligne 14, C = colonne 18. 
LDC CHL 1,8 iFixe Point de 

INC HL ;  dePart de 

LC <HLC i la chenille, 

LC € COÛRC >, BC 

INC HL 

LC CTETE ML iFixe l'adresse de la tete, 
CALL LOCATE iPositionne le curseur, 

LD A,32 

CALL FRIHT iEfface ce Point, 

LC À. 299 Signal: reste immobile, 

LD (DIRECT :,A4 

LC: LTA+DIGERE-AX 4 ilnitialise la digestion. 

CALL JELQ ilLance le Jeux. 

JR NC, CRASH la chenille est morte, alors fin, 
INC € LK+MIVERAU-AXK 3 iSinon Passe au niveau suPerieur, 
JF: JEUL1 iContinue le jeux. 

LC À: MORT iCaractere de mort, 

LD CE.24 iFrequence du son, 

CALL EFCHEMH :Efface la Chenille, 

LC LP ilaractere d'effacement, 

LC DE, iFrequence du son, 

CALL EFCHE iEfface la chenille. 

LC CE, ÎRE : 

LD HL,SHISCÜRE : 

AND 

SBC  HL,CE iscore > hiscore 7 

JP MC, JEULA iMon alors debut de jeux, 

LC (HISCORE », DE ‘Qui alors stoke le nouveau, 
JP JEULG iCekhut de jeux, 


Principale du jeux, 


Pas de redistres, 
Carrs à 1 => le tableau est fini. 
Carry a @ =; la chenille est morte, 


CALL FTDIR iTeste clavier, modifie la direction. 
CALL CALPFOS iCalcule nouvelle Position de la tete 
LD €COORD à, BC i et stocke la. 

CALL TESTPOS Teste si la Place est occuPee, 

PUSH AF iSauvegarde le f133. 

CALL Z,MANGE 3Si c'est un fruit alors mange le. 
CALL LOCATE iPositionne le curseur 

LC A,24f ; et affiche la tete, 


CALL PRIHT 
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IHITJELI 


EFCHE 


à Foutine d'effacement 


i Entrée: 


Sortie: 


EFCHENL1 


EFCHEHF1 


CALL CHAINE 


POP 
FRET 
LC 

AND 
JR 

5CF 
FRET 


LC: 
LC 
LC: 
LD 
FET 


DE 


PUSH 
CALL 
FÜP 
CALL 
PLISH 
FUSH 
LD 


CALL 5 


POIF 
LC 
ADD 


LC 
CALL 
POP 
PO 
AN: 
LD 
FUSH 
SEC 
POP 


RET 





AF 
HC 


À, CHEFRUIT : 
A 


Me, ELU 


5, À 
L. 
€ SCÛRE 2, HL 


caractere 
hauteur 


de registres 


HL, (TETE : 


AF 

EC, ELIFFER:+1 
4 

HL.EC 

HL BC 

HC, EFCHEHP1 
HL , EHDEUFF 


EC, € GUEUE 
HL 

HL. BC 

HL 

MZ: EFCHENL1 





de la chenille, 


d'effacement, 


initiale du son. 


w 
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iEnchaine la tete et efface la Aueus. 
iRetire le f1a9 de collision. 


ii 
iFeste t-1l de 
1 Qui alors 


551431: 


iHL = adresse 


e 


s& Ÿ 


£ con 
Tableau fini. 


ruits * 
tinue, 


il 4 a eu collision alors fin. 


iSauveñarde le caractere d'effacement, 


| buffe 
tk Carr à 
| tete est. 












151 non alor 
ifi oui alûrs 





iet. coord, 






r de la chenille, 
4. 
au debut du buffer T 


aure HL sa: 


P: 


iFetire frequence 






Ferturter 





ence du son, 


t definie Far 


e numero |, 


ui 


iBaisse la frequece, 


iFemet le 


esultat 


dans LE. 


:Attend 24 ibitess: 


iFetire adr: 
iFetire cara 
iMet Carr a 
ET Prends l'a 


iToute la chenille a 


:61 non ala 
Si Ou] a 











Con 


de 13 


tinue. 


fin. 


Carr'4 
met la tete en haut, 
colonne de la tete dans C. 


ligne de la tete dans E. 


envelor, 


queue. 


TEMPO 


Froduit une temporisation dont 


LC E.A 
TEMFOLZ 
LC: CL, 
TEMFOL1 
CE € 
JF ME, TEMFOL1 
CJHZ TEMFOLZ 
FET 
FTCIF 
Teste le clavier 
Entrée: pas de registres, 


LC CC Lé+CIRECT-H4 


CALL LICLAY 





LC AC 
FRET  HC 
AHC 5 
LC: CDIRECT :,H 
FET 
LICLHY 
LC 
CALL TES 
JF HE, EFERE 
CALL REACCHAF 
FRET HC 
CF. il 
JF! HZ, LICLAYFS 
DEC C 
BCF 
FET 
LICLAYFS 
CF M, 
JF: HE, LICLHYF4 
INC CD 
CF 
FET 
LICLAYF4 
OF: A 
FET 
CALFOIE 


Calcule la nouvelle Po 


sitio 


la duree depend de À, 


er et calcule nouvelle direction, 


ortie: H = code de direction, 


iQ prends l'ancienne direction. 
iLit le clavier, 

iF le code de dir 
ent si direction n'a Fas 
Modul 4 Four les à directions: 
ke nouvelle direction, 
















iTeste la touche Escape, 





i elle est enfoncee alors exit, 
retire Ca ctere cdu buffer clavier, 
iFevient si il n'4 en avait Fazs, 
iTauche "a aauch pe 
351 non alor 
alcule nouvel Le SetiR a gauche, 
L la direction 3 change, 






= ri 





Tv 
& 
un 








iTouche "a droite" 
151 mon alors Passe, 
ilalcule nouvelle direction 4 droite, 
iSianal: la direction a Change, 





iñignal: la direction n'a Pas Change, 


de la tete d'apres la direction. 


Entree: À = code de direction, 


Sortie: EC = coordonnees de la tete, 
LC EC, € COR à sAncienne coordonnees de la tete, 
AHC A ihA= 47% 
JR Z,C'IFDROI :Si oui alors direction à droite. 


DA > 


DIRERS 


CIRCROT 


CIFGAL 
RET 


Entree: EC 


MANGE 


à Froduit un 


PLISH 
LC: 
LC 
ACC 
ACD 
ADD 


carrs 
cartrs 
= 


& 


A 
Z.D'IRBAS 
A 
Z,:DIRGAL 
A 

NZ 

E 


Le 


Teste si la Position de la 


coordonnees 119 


LA 


Se 


NES 


[a 


2 


LOCATE 
RDCHAR 


WUUH 
De re © 
Uuuun 


ne 


FUIT 


Co FI 
Les] 


à 
3 


CNIVEAL) 


DMDDDDMADE 
LS S De 
SDDIMDDDS 


«VITESSE 2 


Le :Le] 
© D 
Don 


omp 
22m 


tete 


iA=17 


Si oui alors direction vers le bas. 


iA=ZT 





54A=37 


:Si oui alors direction a gauche, 


iRetour si direc, Pas vers le haut. 


iFasse a la liGne suPerieure., 
iFasse à la liSne de dessous. 
iPasse à la colonne de droite, 
nne de gauche. 


iPasse à la colo 


est Un espace, 


née et colonne de la tete, 
la chenille à heurte Un obstacle, 


la chenille a mange un fruit, 
OK. 


sitionne le curseur, 
le caractere a l'ecran. 





"et. QU: 
Est ice un fruit T 
Signal: OK. 

iRetour £<i oui. 

iSi ce n'est Pas un espace 








alors retour avec carrs annule. 


calcule et affiche le score, 


iSauvegarde les coordonnees de la 


iMultiPplie Par 2. 

iPar 4, 

iPar 5, 

iFar 16. 

iPasse le resultat à E. 


iDivise Par 2. 

iPar 4, 

Par 8. 

iPasse le resultat a D. 


ilnverse l'intervalle 9-31. 
iMultiPpli Par 2. 

ifioute le Premier total, 
iPasse le resultat a E. 
iReset le hiSht-byte., 
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avec signal OK si illisible. 


LD  HL,CSCORE ) 


ADD HL,DE 

LD  CSCORE>,HL 
EX  DE,HL 

LD  A,1 


CALL WINDOW 
LD BC,256+4 
CALL LOCATE 
CALL OUTHB 


LD  HL,@ 
LD  DE,798 
LD  A,1 
CALL SON 
LD  f,2 


CALL WINDQW 

LD A,CDIGERE) 

A, GROS 

LD  CDIGERE),A 

€ IX+NBFRUIT-AX ) 
POP BC 


CHAINE 
î 


Ajoute 


Entree : 


LD  HL,CTETE) 
LD  CHL),B 

INC HE 

LD CHL),C 

INC HL 

CALL TESTENDE 
LD  CTETE),HL 
LD  A,CDIGERE ) 
AND À 

JR  Z,EFFQLEUE 
CP GROS 

LD A,CVITESSE) 
CALL NZ, TEMPO 
CIX+DIGERE-AX ) 


EFFQUEUE 
LD A,CVITESSE ) 
CALL TEMPO 
LD  HL,CQUEUE) 
LD B,CHL) 
INC HL 
LD C,CHL) 
INC HL 
CALL TESTENDB 
LD  CQUELE ),HL 
CALL LOCATE 
LD A,32 
JP PRINT 


j 
TESTENDB 
; Teste si fin du buffer est atteinte. 


LD  DE,ENDBUFF 
AND A 


‘Coord. 


iMet le score a jour 
i et sauve9arde le. 


Active la fenetre 1, 


iligne 1, Colone 4. 
iPositionne le curseur. 
iAffiche le score. 

3Signal: utilise l’enveloPPe. 
iFrequence du son. 

3Signal: EnveloPPe numero 1. 
iProduit le son. 

iActive la fenetre 2. 


iÀ = etat de diaestion. 

iAjoute la digestion actuelle 

; et stocke la. 

iDecremente le nombre de fruits. 
iRetire coordonnees de la tete. 


la derniere Position de la tete dans la chaine. 


BC = Coordonnees ligne et colonne de la tete, 


ifAidresse de la tete. 
Ajoute nouvelle li9ne. 


5Aioute nouvelle colonne. 


iTeste si la fin du buffer est atteinte 
iStocke la nouvelle adresse de la tete. 


iCycle de digestion 7? 
:Si non Passe. 
iEst-ce le Premier cycle 7 


iSi non ajoute temPorisation, 
Un cycle de digestion en moins. 


iAttend. 

iAdresse de la queue, 
ligne de la queue. 
iCoord. colonne de la Aueue. 

iTeste si fin du buffer est atteinte. 
iStocke nouvelle adresse de la queue. 
iPositionne le curseur, 

i et efface la queue. 
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SBC HL,DE 


ADD HL,DE 

FRET C 

LD HL,BUFFER 
RET 


AFUIHD1 
l fiffiche la Premiere fenetre. 


LD  A;1 

CALL WHINDOW 

LD  BC,256+1 
CALL LOCATE 
CALL PRTL 

DEFM SC: 

DEFB -1 

LD DE,6SCORE ? 
CALL OUTNE 

LD BC,256+19 
CALL LOCATE 
CALL PRTL 

DEFM NIVEAU: 
DEFB -1 

LD A,€<NIVEAU) 
ACC À,48 

CALL PRINT 

LD BC,256+29 
CALL LOCATE 


CALL PRTL 
CEFM SFEED: 
DEFE -1 

LD  A.CVITESSE 
SPRL À 

SFL 4 

SRL A 

CEC À 

AND 31 

LD  E,4 
LD  D,@ 


CALL OUTNEZ 
LD BC,256+34 
CALL LOCATE 
CALL PRTL 
CEFM HISC: 
DEFE -1 
LD  DE.CHISCORE 
JF OUTHE 
AFTAB 
i Affiche le tableau de joux, 
i 
LD  A,2 
CALL WINDOW 


CALL CLW 
CALL CADRE 


LD A,CNIVEAU) 
LD  B,A 
PUSH BC 

CHAMPL1 


iActive la fenetre 1. 


iLigne 1, colonne 1. 
iPositionne le curseur. 
Affiche chaine de caracteres. 


Signal: fin de chaine. 

:Affiche le score. 

iLigne 1, colonne 19. 

iPoasitionne le curseur. 

:Affiche chaine de caracteres qui suit. 


iSiQgnal: fin de chaine. 


n 
Q 
re 
— 


iTransforme le niveau en code A 
i et affiche le. 

iLigne 1, colonne 24. 
iPositionne le curseur, 

iAffiche chaine de caracteres qui suit, 


iSignal: fin de chaine. 


iDivise par 2. 
iPar 4, 
iPar 8. 


iModulo 32. 

iPasse le resultat a E. 

iReset hi-byte. 

Affiche le resultat, 

iLigne 1, colonne 1, 

iPositionne le curseur, 

:Affiche chaine de caractere qui suit. 


iSignal: fin de chaine. 


iAffiche le hi-score. 


iActive 13 fenetre 2, 
;Efface la fenetre. 
sAffiche le cadre. 


:B sert de comPteur, 
iSauve9arde le niveau. 


SONT 


PUSH 
CALL 
CALL 
POP 

C.IHZ 


LD 
LD 
CALL 
POF 
SLA 
SLA 
FRUITLI 

PUSH 
CALL 
POP 
C.IHZ 
CALL 
LC 
CALL 
LC: 
CALL 
LD 
JP 


CADRE 
; Affiche le 


CACREL 1 
CUIHZ 


LC: 
CALL 
LC 
LD 
CALL 
C'JNZ 


CADRELZ 


LC 
CALL 
LC 
CAGREL3 LC 
CALL 
LD 
CALL 
LC 
CALL 
CHE 


CADREL4 LD 


BC 
AFCHP 
AF CHF 
BC 
CHAMPL1 


CIX+NEFEUIT-AX 2,4 
A,3 

SETPEN 

EC 

B 

B 


BC 
AFRUIT 
BC 
FRUITLI 
KMRESET 
A, 1 
SETPEH 
EC. 1H#256+18 
LOCATE 
A, CHENI 
PRINT 


ù 
Fi 


adre de la fenetr 


A,2 
SETFEH 
EC, 256+1 
LOCATE 
4, EQRC 
E, 4 
PRINT 
CADREL1 





El, £ 
LOCATE 
À, EOR:C' 
B,4a 
PRINT 
CADREL2 


LATE 


BC, Z#256+1 
LOCATE 
B,2a 

A, EORC: 
PRIHT 

A.1a 
PRIHT 

A,8 

PRINT 
CADREL3 


EC. 24256+4û 
LOCATE 

E. 24 

A, BORD 
PRINT 

A,8 

PRINT 

A,19 


iSauveSarde le compteur. 

iAffiche 2 champignons 
Par niveau. 

iFetire le compteur. 


iPen 3. 

iRetire le niveau de jeux. 
idultiPplie E Par 2. 

iPar 4, 

iSauveSarde le compteur. 
Affiche Un fruit. 

iRetire le compteur. 


ivide le buffer d'entres du clavier, 
iPen 1. 


iLiqne 14, colone 18. 


iPositionne le curseur, 
s5Affiche la tete de la chenille, 


iPen 2, 

ilLiqne 1, colonne 1. 
iPositionne le Cureeur, 
iCaractere de bordure. 


:Affiche 44 fois. 


Affiche 44 fois, 


iligne 2, colonne 1, 


iLigne suivante. 
irecule d'une case, 
iAffiche 29 fois. 


iLiqne 2, colonne 44. 


iRecule d'une case. 


iLigne suivante. 
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CALL PRINT 






DIJNZ CADREL4 :Affiche 28 fois. 
RET 
AF CHF 
4 
3; Calcule une Position et affiche un champignon. 
AFCHPL1 
CALL FNC Produit un nombre aleatoire dans À. 
AND 15 iModulo 16. 
CF 1a iModulo 9. 
JR  C.AFCHPFI 
SUE 7 
AFCHPP1 
ACD AA iMultiPplie Par 2. 
INC 4 iProduit un nombre Pair 
INC A ; entre 2 et 18 inclus. 
LD E.A iResultat dans & (ligne). 
CALL RHD iFroduit un nombre aleatoire dans À. 
AND 31 iModulo 32. 
CF za iModulo 24. 
JR C, AFCHPP2 
SUB 14 
AFCHPFZ 
ACD A.4 iMultiplie Far 7, 
IH Produit ou nobles Ta ir 
THO i entre 2 et 38 inclus. 
LD CA iResultat dans C (colonne). 
CALL TESTPOS La Position est occupee ? 
JF MC, AFCHPL1 Si oui, calcule une autre Position, 
CALL TESTMID ;E t-ce le milieu de la fenetre 7, 
JR Z, AFCHPL1 :i$i oui, recalcule une autre Position. 
LD A,CHAMPI 
CALL PRINT :Affiche un quart du chamPignon. 
INC A :Affiche un autre Quart. 
CALL PRINT 
INC BE iLiQne suivante. 
PLISH AF 
CALL LOCATE sPositionne curseur. 
POP 2e 
INC 5Affiche le troisieme Auart. 
CALL PRINT 
INC iAffiche le dernier quart, 
JP PRINT 
j 
AFRUIT 


i 
3 Calcule une Position et affiche un fruit. 


î 


CALL RND Produit Un nombre aleatoire dans À. 
AND 31 iModulo 32. 
CP 26 iModulo 20. 
JR C,AFRUITP1 
SUB 12 
AFRUITP1 
INC A 
INC A iIntervalle 2 a 21. 
LD E,A Numero de ligne dans B. 
CALL RND iProduit nombre aleatoire dans À, 
AND 63 :Modulo 64. 
CF 38 ;Modulo 38. 
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AFRUITP2 


j 
READY 
Attend 


REAC'YT 


NORERDY 
SPEEC 


SPEECL1 


SPEEDP1 















JR C,AFRUITP2 

sue 2 

INC A 

INC A ilnterwalle 2 a 39. 

LC C.A iNumero de colonne dans C. 

CALL TESTPFOS iCette Position est occuPee 7 
JR NC, AFRUIT ;Si il y a un obstacle, re-calcule. 
JR Z:AFRUIT iSi il 4 a un fruit aussi. 

CALL TESTMID -ce le milieu de l'ecran 7 
JR £sAFRUIT iSi oui, re-calcule. 

INC  CIX+NBFRLIT-A# : ilin fruit de Plus. 

LC A, FRUIT iAffiche-le, 

JP FRINT 

une touche et agit en consequence, 

LC A.3 iActive la fenetre 3, 

CALL WINCOH 

CAL CI ce Ja fonte, 

CALI FRTI che chaine de caracteres qui suit, 
CEFM OK PA Ow = 

CEFH 1 . h = help 

CFFE - iSianal: fin de chaine. 

CALL WAITCHAR :Attend un caractere du clavier. 
FLISH AF 

CALL CLH Avant de le traiter Efface la fenetre, 
FOF  AF 

RES SA iConverti les minuscules en majuscules, 
CALL READYT iTraite le caractere, 

JR HC, READY :$i c'etait Une commande alors recom. 
FRET 

CP "py" 

JR Z, NOREAC'Y iFe-affiche un tableau, 

CF: mn) 

JF: 2, SPEEC iChange la vitesse de jeux. 

CP “Hu 

JF: 2. AFHELF iAffiche help. 

SCF Signal: Pas de commande. 

RET 

CALL AFTAE iFe-affiche un tableau, 

OR A :$ianal: commande. 

RET 

CALL PFRTL :Affiche chaine suivante, 

CEFM / ET FOUR MOINS ET 

DEFM PLIS. 

DEFE -1 3Signal: fin de chaine. 

CALL HAITCHAR iAttend un caractere. 

LD C:CIX+VITESSE-AX ) 

CP Mu iMoins vite 7 

JR 2:SFEEDP1 

CF on Plus vite 7 

JR Z.SPEEDP2 

OR A Signal: commande. 

RET 


S 540 


SPFEECFZ 


SFEEDP3 


AFHELF 


HELP 


TESTMID 
i 


i 
j 


RND 


j 


; Teste € 


LD  A,C 


SUE 6 

JF SPEECF3 
LC AC 

ACC AÀ,8 


LC CYITESSE ?, À 
CALL AFLITHC 
JF SFEECL1 


CAL HELF 
CALL AFTHE 
QF: A 

FET 


LD  A.8 

CALL WINDOW 
CALL CLU 

CALL CADRE 

LD  A:i 

CALL SETPEN 

LD EC, 4#256+6 
CALL LOCATE 
CALL PRTL 


DEFM Vous etes aux commandes d 


CEFH ‘une 
CEFE 31,3,5 


DEFM chenille folle qui se nou 


CEFN rrit 

DEFE 31,%.6 
DEFH de fruits, 
CEFE 31,6, 


CEFM Four la guider vo 
DEFM us disposez des 


CEFE 31,3,9 


DEFN touches / et ÿ Pour droi 


CEFNM te et aauche, 


C'EFE -1 
JF MAITCHAR 


LD A,E 
CF 14 
RET NZ 
LD A,C 
CF 18 
FET 


iReduit la vitesse. 


Augmente la vitesse. 
Affiche Ta nouvelle vitesse, 


iFecommence, 


iAfFiche Helr, 
iAffiche le tahleau de jeux, 
:Sianal commande. 


Active la fenetre 2, 
;Efface la fenetre. 
Affiche le cadre, 
iFen 1. 


iliqne à, colons 6, 


Sianal: fin de chaine. 
Attend un caractere du clavier. 


i les coordonees BC sont celle du millieu de l'ecran. 


; Produit un nombre Pseudo-aleatoire dans À, 


LD  HL,CSEED) 


PUSH HL 
ADD  HL,HL 
ADO  HLHL 
POP DE 
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iAncien nombre aleatoire. 


imultiPplie Par 2. 
iPar 4, 


ACC  HL.CE iPar 2. 


ACC  HL.DE iPar 6, 

ACC HL.CE 5Par 7. 

LD DE , 41 

ADD HL.DE 

LD <SEED 2, HL iStocke nouveau nombre, 

LD AL 

XOR H sFeduit de 16 bits en 8 bits, 
RET 


RAHC:OM 


U 
; Cree le Hasard, 


LD A. 
LÜ  CSEEC YA 
FRET 


LOCATE 
i Fositionne le curseur. 


à Fatress FT contient la liQne et la colonne, 


FLISH HL 
Li A. PR 
CALL SETFOM iFixe liqane. 
LD A,C 
CALL SETCOL iFixe colonne. 
POP  HL 
RET 
INITF 


3 Initialisation 
i 


LC 4,1 idode 1, 

CALL SETMOCE 

CALL REDEFC iRedefinit les caracteres, 
LC A1 iFenetre 1, 

CALL HIHCOH 

LC HL a Coin haut gauche. 

LC DE, 39#2%6+1 iCoin bas droite. 

CALL WINCEH iCree la fenetre, 

LC A,2 iFenetre 2, 

CALL HIHCOM 

LC HL,2 Coin haut Gauche. 

LC DE, 39*256+23 iCoin bas droite. 

CALL HIHCEH ilCree la fenetre, 

LD A:3 iferetre 3. 

CALL HIHCOH 

LD HL ; 24 iCoin haut Gauche. 

LC DE.39*256+24 Coin bas droite, 

CALL WINCEN iCree la fenetre. 

LD A,4 ilnk 6. 

LD BC, INKGX256+INKQ ilCoauleurs dans E et C. 
CALL SETINK 

LD  A,1 ilnk 1. 

LD  EC,INK1#256+INK1 iCouleurs dans B et C, 
CALL SETINK 

LD A,2 ilnk 2. 

LD EC,INK2*256+INK2 iCouleurs dans B et C. 


5949; 


CALL SETINEÉ 


LD A,3 

LD EC, IMKXKZGE A THE 
CALL SETINE 

LC HL .: AMPLENY 

LC A1 


CALL SDAMPLI 
CALL RANDOM 
LD IX, AX 


REDEFC 


; Fedefini les caracteres, 
LE  C,z44 
LOC HL:TAECC 
LD E.8 
RECEFCL1 
FLISH EC 
LD  A,25 
CALL PRINT 


LD  A.C 

CALL FEINT 

LD 6,8 
REDEFCL2 

LD  A,6HL) 

INC HL 


CALL PRINT 
CINE RECEFCLZ 


FOP EC 

INC C 

CUIHE REDEFCL1 
RET 


PRTL 


ilnk 3. 
iCouleurs dans B et C. 


:Adresse des donnees d’enveloPre. 
iEnveloPPe numero 1, 

iCree l’'enveloPPe, 

iCree le hasard, 

:1X Pointe sur les variables. 


Premier caractere redefini. 
iTable des caracteres modeles, 
i8 caracteres a redefinir., 
:Signal: Redefinition. 

iCode du caractere à redefinir, 


iComPteur de Farametres, 





:Frends un Parametre, 


iEnvoaie-le. 
iFecommence huit fois, 


iCaractere suivant, 
:Recommence & fois. 


à Affiche la chaine de caractere adressee Par PC. 


;à Entree: PT & adresse de Ta chaîne de Garas bare, 


POF CE 

LC: A6CE ? 
INC CE 
PUSH DE 

CF 255 
FRET 2Z 

CALL PRINT 
JR PRTL 


QUTNE 


: Affiche un nombre sur 5 chiffres. 


i 
i Entree: DE = nombre a afficher. 


LD BC,;-1aaa8 
CALL PRCH 

LD BC,.-149f 
CALL PRCH 

LD  EC,-14f 
CALL PRCH 


aRetoce Ladder ou, 
iPreiud le caractere, 
Pointe sur 

i et stocke "1 : 
Est-ce le caractere de fin 7 
iSi oui alors fin. 

iSi non affiche-le 

; et continue, 


re suivant 
8 





iChiffre des dizaines de milliers. 


iSort le chiffre. 
iChiffre des milliers. 


iChiffre des centaines, 


#54% 


QUTHEZ : LC 
CALL 
LC 
ACC: 
JP 
PRCH 


; Affiche un 


; Entree: BC 
: DE 


EX 
#OR 
PRCHL1 ADD 
INC 
IF: 
SEC 


€ 
ACC 
JF 


SOÛN 


i Produit un 


D — 


i Entree: HL 
ä : DE 
! A 


PUSH 
PLISH 
LD 
LD 
LD 
LC 
PUSH 
CALL 
LD 
POP 
CALL 
CALL 
LD 
CALL 
CALL 
LD 
CALL 
CALL 
LD 
CALL 
POP 
POP 
RET 


4 

SOUND 
PUSH 
LD 
CALL 
POP 
RET 


EFFET 


BC,-1a 
PRCH 
AE 
A,48 
PRINT 


chiffre 


iChiffre des dizaines. 


iChiffre des unites. 


contient l'opPpose du multiplicateur du chiffre, 
contient le nombre duquel on extrait le chiffre. 


DE.HL 

A 

HL,BC 

A 

C, PRCHL1 
HL, BC 
CF, HL 


A4 
FRINT 


DOTE 


duree du son. 


IX 

DE 

1Y, SCFARAM 
CIY+19,À 
CIY+72,L 

€ 1Y+82.H 

DE 

SDRESET 
(1Y+2),:0190aa@1 
DE 

SETTONE 

SOUND 
C1Y+4),*61908a1Q 
EFFET 

SOUND 
<1Y+9),:0100a810@ 
EFFET 

SOUND 

A,7 

SDRELERS 

DE 


IX 


DE 

HL ; SDPARRAM 
SDQUEUE 

DE 


Frequence du son. 
Numero d’enveloPpe a utiliser. 


iPazse le nombre a HL Pour la division. 
ilComPteur a 0, 

iSoustrais le diviseur. 

iComPte chaîue Passage, 

iTant que C’est Possible. 

iRestaure la soustraction de trop, 

ile reste de la division dans DE. 
iFResultat en code ASCII. 

i et affiche le chiffre. 


31Y Pointe sur table de Parametres, 


iStoPPpe les sons. 
Signal: Canal 1. 


ilnclue la frequence. 


iSignal: Canal 2. 
iDesacorde Pour faire un son Puissant, 


iSiqanal: Canal 3. 


iSianal: Tous les canaux. 
iProduit le son. 


Met le son dans la Queue d'attente, 


- 244 - 


SETTONE 


SDPARAM 


AMPLENY 


j 


BUFFER 
ENDBUFF 
TRECL 
CHENI 


j 


MORT 


RET 


DEFE 
DEFB 
CEFE 
CEFW 
DFFF 
DEFE 
DEF 


DEFE: 
CEFB 
DEFB 
DEFB 


CEFE: 


DEFÉ - 


DEFE 
DEFS 


DEFS 


EQLl 


DEFB 
DEFE 
DEFE 
DEFB 
DEFE 
DEFB 
DEFB 
DEFE 


EQU 


DEFB 
DEFB 
DEFB 
DEFB 
DEFE 
DEFB 
CEFE 
DEFB 


C1Y+32,E 
CIY+4),0 


222229 


Fo) 


LANGLIELIR, & 


Le 
£ 
o 


NNNNNNNN 
DDmmme 9 @ 
SrmmemDQ 
mme D Dre 
I 
CE 
DA De bé D è t e 
Qrrmmmnm © 
SO-rmm-DS 
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2499111108 
01100119 
2118800811 
19088601 
*140080û1 
11900011 
81109110 
68111140 


5545; 


iModulns. 


:Houvelle frequence 


Canal. 


dans DE. 


iHumers d'enveloppe, 


iEnvelopps de fre 
iFreduence du 2, 
iPeriode de bruit, 


Once, 


iAmPlitude initiale, 


iDuree 


iHonmbre de sections 
iNombre de Pas. 
iTaille du Pas. 
Temps de Pause. 
sHeuabu che Pois, 
Taille du Pas, 
Temp: ‘de Pause. 


iParametres inutili 


iPlace Püur Ta ché 


d'env, utilises, 


ses. 


ille. 


FRUIT 


H 


CHAMP] 


FIN 
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Ga1 1480 
191 146 
jitiltii 
1iitiii 
aa 1144 
1111111 
1111111 
G411904 

EQU 244 





De mt pe me et 1) 
DS pe pe me me 
DO me me me DD 


End: 34744 


1R4AQ Futes 
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Liste des variables : 


NIVEAU : 


TETE : 


QUEUE : 


DIGERE : 


DIRECT : 


SEED : 


SCORE : 


HISCORE : 


VITESSE : 


1 Octet contient le niveau actuel du jeu. 
Le premier tableau correspond au niveau I. 


2 Octets cette variable contient l'adresse dans le 
buffer de la chenille des prochaines coordonnées 
ligne et colonne de la tête. 


Lorsque cette adresse dépasse la limite 
supérieure du buffer, elle est automatiquement 
remise au début de celle-ci. 


2 Octets contient l'adresse dans le buffer de la 
chenille des coordonnées ligne et colonnes de la 


queue. 


1 Octet contient le temps de digestion de la 
chenille. 


1 Octet contient le code de la direction de la 
chenille : 


0 = à droite 

1 = en bas 

2 = à gauche 
3 = en haut 


2 Octets stocke le dernier nombre aléatoire 
produit. 


2 Octets contient le score. 
2 Octets contient le score le plus fort. 


1 Octet contient une valeur qui doit être un 
multiple de 8 et qui définit la vitesse du jeu. 


547 


NBFRUIT : 1 Octet contient le nombre de fruits qu’il reste 
à manger dans le tableau. 


COORD : 2 Octets contient les coordonnées ligne et colonne 
de la position actuelle de la tête. 


COMMENTAIRES DU LISTING 


La première ligne utile du programme définit l’origine. Celle-ci 
est fixée à 37000 mais elle peut être changée. 


Ensuite on définit les adresses des routines de la ROM qui sont 
utilisées. Elles sont toutes appelées par les vecteurs du système 
de manière à assurer la comptabilité avec les trois types 
d'ordinateur. 

Ensuite viennent les constantes et les variables suivies 
du programme . 


La touche [ESCAPE] vous permettra de sortir du jeu et de revenir à 
votre assembleur. Pour cela vous devez indiquer quelle est 
l'adresse d'accès de votre assembleur. Ceci se fait au début du 
listing dans la déclaration : 

BREAK EQU x 


x étant l’adresse d’accès. 


Bon jeu ! 
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10. Conclusion 


Maintenant que vous avez étudié cet ouvrage de façon plus ou moins 
intensive, nous espérons que vous aurez mis en pratique un certain 
nombre des idées proposées. 


Vous vous êtes peut-être aperçu qu’un certain nombre de sections de 
programme et de routines se répètent à travers les différents 
chapitres. Pensez simplement par exemple au menu avec ses 
fonctions: 


—<ntrer 
—<xaminer 
Charger 
sauvegarder 


corriger 


Bien sûr, pour des problèmes qui se ressemblent fondamentalement, 
il est possible de développer des normes de programmation qui 
standardisent le déroulement du programme. Nous y avons cependant 
renoncé pour rester plus proche de la façon de travailler et de 
réfléchir des programmeurs hobbyistes et amateurs. Ceux-ci partent 
en effet en général d’un sujet ou d’un problème et recherchent une 
solution sans avoir derrière la tête d’autres projets de logiciels. 
Le présent ouvrage_constitue donc ainsi une aide pour le sous- 
programmeur débutant qui souhaite s’exercer et s’entraîner à la 
programmation. 
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ANNEXE A 


Instructions BASIC importantes 


Comme toutes les instructions BASIC AMSTRAD sont décrites en détail 
dans votre manuel d’utilisation, nous voulons simplement présenter 
ici quelques règles élémentaires pour leur utilisation: 


1. Tout programme BASIC se termine par l'instruction END 


2. Les expressions devant être sorties par une instruction PRINT 
doivent être séparées par des virgules si la sortie doit se 
poursuivre dans la prochaine zone de l'écran. Si vous utilisez le 
point-virgule, la sortie se fera immédiatement à la suite de la 
sortie déjà effectuée. Une virgule ou un point-virgule à la fin 
d’une instruction PRINT interdit le passage à la ligne qui est 
sinon systématique. 


3. L’instruction INPUT réclame exactement autant de valeurs qu’il y 
a de variables dans la liste des variables. Les différentes valeurs 
ainsi que les différentes variables doivent être séparées entre 
elles par des virgules. 
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4. Si la condition dans l'instruction IF … THEN est remplie, 
l'instruction suivant le THEN sera exécutée. D’autres instructions, 
séparées entre elles par des doubles points et placées à la suite 
de l'instruction IF … THEN ne seront exécutées que si la 
condition logique est remplie. Si la condition n’est pas remplie, 
c’est tout simplement la ligne de programme suivante qui sera 
exécutée. 


5. Dans l'instruction FOR … TO … NEXT (boucle) les valeurs 
initiale, finale et le pas de progression ne doivent pas être 
modifiés pendant les parcours de la boucle. Le nom de la variable 
de comptage doit être du type réel et il doit être identique au nom 
indiqué dans l'instruction NEXT. Les boucles peuvent être 
imbriquées, abandonnées et il est possible de sauter à l’intérieur 
d’une boucle. 


6. Si on a besoin pour une variable indexée de plus de place que 
l'ordinateur n’en réserve automatiquement au moment de la 
définition d’une variable, il faut réserver la place nécessaire par 
dimensionnement (instruction DIM). 


7. Lorsqu'on crée des variables réelles, il faut veiller à ce que 
leur nom ne comprenne pas plus de 40 caractères (alphanumériques), 
le premier caractère devant obligatoirement être une lettre. Les 
variables de chaîne de caractères doivent être dotées du signe $. 


8. Si des données sont transmises à l'ordinateur avec les 
instructions DATA et READ, les types de valeurs doivent 
correspondre aux types de variable, la première valeur de 
l'instruction DATA étant affectée à la première variable de 
l'instruction READ, etc. 
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9. A la suite de l'instruction ON .… GOTO ou ON … GOSUB, aucune 
autre instruction figurant sur la même ligne ne sera exécutée. 


10. Les instructions WINDOW recouvrent les effets d’instructions 
WINDOVW précédentes. 
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ANNEXE B 


Messages d’erreur importants 


ARRAY ALREADY DIMENSIONED : un tableau a été dimensionné 


deux fois. 


CANNOT CONTINUE : tentative de continuer l'exécution d’un 
programme après un message d'erreur ou une modification du 
programme. 


DATA EXHAUSTED : il y a plus d'instructions READ qu’il n’y a 
de données dans les instructions DATA. 


DIVISION BY ZERO : la division par zéro est interdite. 


LINE DOES NOT EXIST : appel d’une ligne inexistante. 


NEXT MISSING : il manque l'instruction NEXT dans une boucle 


OVERFLOWV : le résultat d’un calcul est trop grand. 
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REDO FROM START : l'utilisateur a essayé d’entrer des données non 
numériques en réponse à une instruction INPUT dans laquelle le 
programmeur avait placé une variable de type numérique. Le 
programme peut continuer dès que l’utilisateur aura entré une 
donnée numérique. 


SUBSCRIPT OUT OF RANGE : appel d’un élément d’un tableau 
dépassant le cadre fixé lors du dimensionnement (qu'il s'agisse 
d’un dimensionnement automatique ou d’un dimensionnement avec 
l'instruction DIM). 


SYNTAX ERROR : instruction inexistante ou employée de façon 
incorrecte. 


TYPE MISMATCH : des variables numériques ont été traités comme 
des chaînes de caractères ou inversement. 


UNEXPECTED NEXT : il manque l'instruction FOR dans une boucle. 


UNEXPECTED RETURN : sous-programme sans GOSUB. 
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EAUTÉS NOUVEAUTES NOUV 





LIVRE DU LECT 
DE DISQUETTE 
AMSTRAD CPC (Tome 10) 





Tout sur la programmation et la 
vestion des données avec le floppy 
DDI-1 et le 664 ! Utile au débutant 
omme au programmeur en langage 
machine. Contient le listing du DOS 
mmenté, un utilitaire qui ajoute 








LE NOUVEAU COMMODORE 128 


Ce livre présente le nouveau 
Commodore 128. Vous y trouverez un 
aperçu complet des possibilités du 
successeur du célèbre "64" et une 
présentation détaillée des trois 
operating system. Le super nouveau 

























uietep te\ "en 
les fichiers RELATIFS à l'AMDOS 
avec de nouvelles commandes BASIC, 
un MONITEUR disque et beaucoup 
d'autres programmes et astuces. Ce 
livre est indispensable à tous ceux 
qui utilisent un floppy où un 664 
AMSTRAD 


Réf. : ML127 


Prix : 149 FF 








LE NOUVEL ATARI ST des themes abordées. Ce livre doit 
être lu par tous ceux qui suivent de 
près le monde de la 


informatique 


Ce livre décrit la superbe machine micro 


qu'est l'ATARI ST. 


Architecture, interfaces, operating 
system, le bios, GEM, LOGO, le Réf. ML125 
processeur 68000, sont quelques-uns Prix 129 FF 


BASIC Commodore 7.0 est décrit ainsi 
que la configuration de la mémoire, 
la page zéro et le nouveau et rapide 
lecteur de disquette 1571. Pour tous 
les Commodoristes ! 


Réf. : ML130 


Prix : 129 FF 
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LES LIVRES AMSTRAD 





TRUCS ET ASTUCES POUR 
L'AMSTRAD CPC (Tome 1) 

C'est le livre que tout utilisateur 
d'un CPC doit possèder. De nombreux 


domaines sont couverts (graphismes, 
fenêtres, langage machine) et des 


Aero 14107, 11e) 


super programmes sont inclus dans 
ce best-seller (gestion de fichiers, 
éditeur de texte et de sons..). 


Réf. : ML112 
Prix : 149 FF 





PROGRAMMES BASIC POUR 


LE CPC 464 
ALIMENTEZ VOTRE CPC 464 


contient de super 
notamment un 


Ce livre 
programmes, 
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désassembleur, un éditeur graphique, 
un éditeur de texte Tous les 
programmes sont prêts à être tapés 
etabondamment commentés. 


Réf. ML119 
Prix 129 FF 





LE BASIC AU BOUT DES 
DOIGTS CPC 464 


Ce livre est une introduction 
complète et didactique au BASIC du 
micro-ordinateur AMSTRAD CPC 
464 ll permet d'apprendre 
rapidement et facilement la 
programmation (instructions BASIC, 
analyses des problemes, algorythmes 
complexes...) 

Principaux themes abordés : 

- Les bases de la programmation 
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- Bit, Octet, ASCII 

- Instructions du BASIC 

- Organigrammes 

- Les fenêtres 

- Programmes BASIC plus poussés 
- Le programme et menus 
Comprenant de nombreux exemples, ce 
livre vous assure un apprentissage 
simple et efficace du BASIC CPC 464 


Réf: ML118 
Prix 149 FF 
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AMSTRAD OUVRE-TOI 


Le bon départ avec le CPC 464 ! Ce 
livre vous apporte les principales 
informations sur l'utilisation, les 
possibilités de connexions du CPC 
464 et les rudiments nécessaires 
pour développer vos 


propres 











LE 
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LA BIBLE DU PROGRAMMEUR 
DE L'AMSTRAD CPC 464 
(Tome 6) 


Tout, absolument tout sur le CPC 
464. Ce livre est l'ouvrage de 
référence pour tous ceux qui veulent 
programmer en pro leur CPC 
Organisation de la mémoire, le 






O APPLICATION 


programmes. C'est le livre idéal 
pour tous ceux qui veulent pénétrer 
dans l'univers des micro-rdinateurs 
avec le CPC 464 


Réf. : ML120 
Prix : 99 FF 


JEUX D'AVENTURES. COMMENT 
LES PROGRAMMER 


Voici la clé du monde de l'aventure 
Ce livre fournit un système 
d'aventures complet, avec éditeur, 
interpréteur,  routines utilitaires 
et fichiers de jeux. Ainsi qu'un 


contrôleur vidéo, les interfaces, 
l'interpréteur et toute % ROM 
DESASSEMBLEE et COMMENTEE 
sont quelques-uns des thèmes de cet 
ouvrage de 700 pages 


Réf. ML122 
Prix 249 FF 


LE LANGAGE MACHINE DE 
L'AMSTRAD CPC (Tome 7) 


Ce livre est destiné à tous ceux qui 
désirent aller plus loin que le 
BASIC. Des bases de la programmation 
en assembleur à l'utilisation des 
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générateur d'aventures pour program 
mer vous-mêmes facilement vos jeux 
d'aventures. Avec, bien sûr, des 
programmes tout prêts à être tapes 


Réf: MLI21 
Prix 129 FF 
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routines système, tout est expliqué 
avec de nombreux exemples. Contient 
un programme assembleur, moniteur et 
désassembleur 


Réf ML123 
Prix 129 FF 
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GRAPHISMES ET SONS DU CPC 


L'AMSTRAD CPC dispose de 

capacités graphiques et sonores 

exceptionnelles. Ce livre en montre 

l'utilisation à l'aide de nombreux 

programmes utilitaires 

Contenu : 

- base de programmation graphique 

- éditeur de police de caractères 

- “sprites", "shapes", et chaines 

- représentations multi-<ouleurs 
calcul des coordonnées 





Ale er: AN er 1e) 








MONTAGES EXTENSIONS ET 
PERIPHERIQUES AMSTRAD CPC 
(Tome 11) 








Pour tous les amateurs d'eléctro- 
nique ce livre montre ce que l'on 
peut realiser avec un CPC. De 
nombreux schémas et exemples 
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- rotations, mouvements 


- représentations graphiques de 
fonctions en 3D 

-  D.AO. (dessin assisté par 
ordinateur) 


- synthétiseur 

- mini-Orgue 

- enveloppes de son, et beaucoup 
d'autres choses 


Réf. : ML124 
Prix : 129 FF 


PEEKS ET POKES DU CPC 
(Tome 9) 


Comment exploiter à fond son CPC à 
partir du BASIC ? C'est ce que vous 
révèle ce livre avec tout ce qu'il 
faut savoir sur les peeks, pokes et 
autres call. Vous, saurez aussi 





illustrent les thèmes et  applica- 
tions abordés comme les interfaces, 
programmateur d'EPROM.. Un très 
beau livre de 450 pages 


Réf. : ML131 
Prix 199 FF 










= 


MICRO APPLICATION 





comment protéger la mémoire, calcu- 
ler en binaire. et tout cela très 
facilement. Un passage, assuré et 
sans douleur du BASIC au puissant 
LANGAGE MACHINE 


Réf. : ML126 
Prix : 99 FF 
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LE LIVRE DU CP/M AMSTRAD 
(Tome 12) 


Ce livre vous permettra d'utiliser 
CP/M sur les CPC 464, 664 et 6128 
sans aucune difficulté. Vous y 
trouverez de nombreuses explications 


MICRO APPLICATION 


et les différents exemples vous 
assureront une maitrise parfaite de 
ce très puissant système d'exploi- 
tation qu'est CP/M. (300 pages) 


Réf. : ML128 
Prix 149 FF 


DES IDEES POUR LES CPC 
(Tome 13) 


Vous n'avez pas d'idées pour 
utiliser votre CPC (464, 664, 6128) 
? Ce livre va vous en donner ! Vous 
trouverez de très nombreux 
programmes BASIC couvrant des sujets 
trés variés qui transformeront votre 
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CPC en un bon petit genie. De plus 
les programmes vous permettront 
d'appronfondir vos connaissances en 
programmation 

(250 pages) 


Réf. : ML132 
Prix : 129 FF 





AMSTRAD AUTOFORMATION 
A L'ASSEMBLEUR 
EN FRANCAIS 


Contient un livre et un logiciel 

LE LIVRE : 

Cet ouvrage introduit le débutant à 
la programmation du Z80 grâce à la 
méthode du DR WATSON qui selon les 
critiques vaut son pesant d'or ! 
Aucune connaissance préalable n'est 
requise et le but du livre est 
d'assurer au novice un succès total. 
A la fin du livre les instructions 
du Z80 sont expliquées en détail. De 
nombreux exemples illustrent les 
différentes étapes du cours alors 
que des exercices (les solutions 
sont fournies) testent la compré- 
hension. 

LE LOGICIEL : Un assembleur Z80 


complet est livré sur cassette et 
comprend : 

- Etiquettes Symboliques 

- Directives d'Assemblage 

- Chargement/Sauvegarde 

- Copie Ecran 

- INSERT / DELET. 

L'assembleur permet d'écrire des 
programmes facilement en langage 
d'assemblage puis les transforme en 
code machine (langage machine). Pour 
vous aider à comprendre les 
rotations mathématiques utilisées, 
une démonstration de l'utilisation 
des nombres binaires et hexadecimaux 
est fournie. Un programme utilisant 
les commandes graphiques 
additionnelles décrites dans le 
livre est également fourni. 


Réf. : ML126 
Prix :195 FF K7-295 FF- disquette 
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TEXTOMAT AMSTRAD 
CPC 464 & 664 


Traitement de texte de qualite 
professionnelle pour tous. 

Tabulation, recherche, remplacement, 
insertion, manipulation de para- 
graphes, calcul. Accents à l'écran 


et imprimante. Module permettant de 









D.A.M.S. POUR AMSTRAD 
CPC 464 & 664 


D.A.MS. est un logiciel intégrant 
un assembleur, un moniteur et un 
désassembleur symbolique pour 
développer et mettre au point 
facilement des programmes en langage 
machine sur les micro ordinateurs 
AMSTRAD. Les trois modules sont co- 
résidents en memoire ce qui assure 
une grande souplesse d'utilisation 
Vous pouvez notamment utiliser un 
éditeur plein écran, un assembleur 


gérer tout type d'imprimante. Ecrit 
en LANGAGE MACHINE. Liaison 
avec DATAMAT pour mailingetlettres 
types personnalisées... TEXTOMAT est 
la solution traitement de texte sur 
CPC. Documentation complète. 


Réf : AM305 
Prix : 450 FF 


DATAMAT AMSTRAD 
CPC 464 & 664 


La gestion de fichier la plus 
complète fonctionnant pour les 464 
et 664. Entièrement en LANGAGE 


immédiat, un désassembleur 
symbolique, une trace et beaucoup 
d'autres fonctions très puissantes, 
D.A.MS. est entièrement relogeable 
et est bien évidemment écrit en 
langage machine. 


Réf. : AM208 
Prix : sur cassette 298 FF TTC 
pour CPC 464 
Réf. : AM308 
Prix sur disquette 395 FF TTC 


pour CPC 664 & CPC 464 








MACHINE. Fonctions de calcul, de 
tri, de recherche multicritères, 
impressions  paramétrables, liaison 
avec TEXTOMAT pour mailing. 
Documentation française de 60 pages 


Réf. : AM304 
Prix : 450 FF 
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CE LIVRE VOUS PASSIONNE, 
MAIS VOUS N’AVEZ PAS LE TEMPS 
DE TAPER LES PROGRAMMES 
ACHETEZ LA DISQUETTE 
DES PROGRAMMES DU LIVRE 


DES IDÉES POUR LES CPC 


NOM : 


PRENOM : 





ADRESSE : 





CODE POSTAL : VILLE : 


Je désire recevoir la disquette des programmes du livre DES IDÉES POUR 
LES CPC. 


Je joins a ce coupon un chèque de 120 francs. 
CCP de 120 francs. 


Date : Signature : 


Achevé d'imprimer en décembre 1985 
sur les presses de l'imprimerie Laballery et C' 
58500 Clamecy 
Dépôt légal : décembre 1985 
Numéro d’imprimeur : 511094 


IMPRIMÉ EN FRANCE 


Vous n'avez pas d'idées pour utiliser votre CPC (464, 664, 6128)? Ce livre va 
vous en donner! Vous trouverez de très nombreux programmes BASIC 
couvrant des sujets très variés qui transformeront votre CPC en un bon petit 
génie. De plus les programmes vous permettront d'approfondir vos connais- 
sances en programmation. 


Aperçu du contenu du livre : 


1. 
2. 


Le CPC et ce qu'il permet de faire 
De petites choses utiles et faciles à 
programmer 

— Calcul de pourcentage 


Minimum, maximum et 
moyenne 

L'ordre alphabétique 
Jouez-vous au Loto? 


Publicité dans une vitrine 


. Voiture et ordinateur 


— consommation d'essence — 
contrôle sur une longue pé- 
riode 

— Optimisation de 
choisi 

— Coûts de la voiture 


l'itinéraire 


. L'argent et le crédit 


— Calcul d'intérêts 

— L'argent de votre compte d'é- 
pargne (calcul d'intérêts des 
intérêts) 


ISBN : 2-86899-031-2 


— L'intérêt annuel effectif 
— Les dettes et leur rembourse- 
ment 


. Textes et impression 


— Caractères spéciaux français 
— Une lettre d'affaire individuelle 
— Traitement de texte 


. Budget et santé 


— Un budget rationnel 
— Un calculateur de calories élec- 
tronique 


. L'ordinateur et vos hobbies 


— Peinture, dessin et graphiques 
— Faisons de la musique 
— Le championnat de football 


. Ces chers petits 


— La table de multiplication 
— Test de nombres premiers 
— Détermination de point zéro 
— Vocabulaire 


Prix : 129 FF TTC 
Réf. : ML 132 
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